AD-A033  514 


UNCLASSIFIED 


AD 

A0335IA 


PRC  INFORMATION  SCIENCES  CO  ROME  N Y p/6  1S/3 

SPACE  SURVEILLANCE  SOPTVARt  SUPPORT.  VOLUME  1*  PART  1,  BOOK  2.  — ETC(U) 
OCT  76  P R CONTI  F30602-7S-C-0167 

RAOC-TR-76-261-VOL-1-PT-1-  nL 


III  II 


1 


1 


11 


II 


111 


II  1 I 


u 


id  DA  0 3 3 5 1 4 


RADC-TR-76-261 , Volume  I,  Pert  1,  Book  2 
Final  Technical  Report 
October  1976 


SPACE  SURVEILLANCE  SOFTWARE  SUPPORT 
Computer  Program  Documentation 

PRC  Information  Sciences  Company 


Approved  for  public  release; 
distribution  unlimited. 


1 Ml  KVEUPIlfMT 

I met  systems  m 

mmtggamm  m rnmimm  ilil  nm  MflBflf 

warm*  Hm  rPKt  nr,  rbw  toi 


effrimiKE  TV  D5C19RH1T 

pTPiI  SJ  Jylii  lEu^  iiUfiiiii* 


Thi*  report  contain*  a large  percentage  of  machine-produced  copy  which 
ia  not  of  the  higheat  printing  quality  but  beceuae  of  economical  conaideration, 
it  wea  determined  in  the  beat  lntercat  of  the  government  that  they  be  uaed  in 
thia  publication. 

This  report  ha*  been  reviewed  by  the  RADC  Information  Office  (01) 
and  la  relcaaable  to  the  National  Technical  Information  Service  (NTIS) . 

At  NTIS  it  will  be  relcaaable  to  the  general  public,  including  foreign 
nation*. 

Thia  report  haa  been  reviewed  and  approved  for  publication. 


APPROVED: 


JOHN  C.  CLEARY 
Project  Engineer 


RUDOLF  C.  PALTAUF,  Lt  Col,  USAF 
Chief,  Surveillance  Dlvlalon 


COMMANDER: 


JOHN  P.  HUSS 

Acting  Chief,  Plana  Office 


Do  not  return  thia  copy.  Retain  or  deatroy. 


UNCLASSIFIED'"" — - 


security  Classification  of  This  PACE  r» hon  Dolo  Entorod) 


]/&! L)  me  J.  > jarid,  B &>k  z,  * 


REPORT  DOCUMENTATION  PAGE 


SPACE  JURVEILLANCE  SOFTWARE  SUPPORT . 
Computer  Program  Documentation* 


READ  INSTRUCTIONS 
BEFORE  COMPLETING  1 ORM 


T'S  CATALOG  NUMBER 


u i3Pl5*wl  • 


Final  technical /KeflS^t  • 


PRC  Information  Sciences  Company 
8606  Turin  Road 
Rome  NY  13440 


M.  CONTROLLING  OFFICE  NAME  AND  ADDRESS 

Rome  Air  Development  Center  (OCSA) 
Griffiss  AFB  NY  13441 


© 


LM.E»TtrM| 


MONITORING  AGENCY  N A^E  A AOORESSf"  dllloronl  from  Controlling  Oltlcm)  | 15.  SECURITY  CLASS,  (ol  thl * rmport) 


l»  DISTRIBUTION  STATEMENT  (ol  1M1  Report) 


UNCLASSIFIED 


ISO.  DECLASSIFICATION  DOWNGRADING 
SCHEOULE 


Approved  for  public  release;  distribution  unlimited. 


IT  DISTRIBUTION  STATEMENT  (ol  Iho  obotroa  onlorod  In  Block  30.  II  dlltoront  I root  Report) 

Same 


I*,  supplementary  notes 

RADC  Project  Engineer: 
John  C.  Cleary  (OCSA) 


It  KEY  WORDS  (Continue  on  revere*  tido  II  neceseary  md  Identity  by  block  number) 

Trajectory  Software 
Radar  Cross  Section 
Orbit 

Classifiers 


20.  ABSTRACT  (Continue  on  revere*  a I do  H nmcaaamry  mnd  Identify  by  block  numbor) 

The  objective  of  this  effort  was  to  modify  the  RADC  trajectory  program,  orbit 
program  and  various  radar  cross  section  programs  were  modified  to  run  on  the 
RADC  HIS  6180  computer  under  the  GCOS  system  software.  The  RADC  trajectory 
program  was  modified  to  Include  the  capability  of  processing  multiple  (20) 
radar  sites  and  multiple  (20)  targets  in  the  program  so  that  various  radar 
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ABSTRACT 


The  objective  of  the  effort  documented  herein  was  to  provide  com- 
puter programming  support  for  Space  Surveillance  system  analysis.  The 
two  primary  tasks  of  the  effort  were  to  complete  the  modification  of  the 
RADC  Trajectory  Program  and  to  modify  various  radar  cross-section  and 
other  computer  programs  so  that  they  could  be  accessed  from  the  inter- 
active system  for  the  RADC  Radar  Simulator.  The  documentation  is 
organized  as  follows: 

Volume  I,  Part  1,  Book  1 - Project  Summary  and  Computer  Pro- 
gram Documentation  (Chapters  I — III  of  Volume  I,  Part  1) 

Volume  I,  Part  1,  Book  2 - Computer  Program  Documentation 
(Chapter  IV) 

Volume  I,  Part  1,  Book  3 - Computer  Program  Documentation 
(Chapters  V-VIand  Appendices  A-E) 

Volume  I,  Part  2 - RADC  Trajectory  Program  - Numerical/ 
Analytical  Data 

Volume  II  - Generalized  Data  Entry  and  Plot  Program 

Volume  III  - Radar  Signature  and  Radar  Scattering  Principles 
Investigation  Software 


i 


IV.  Description  of  Radar  Cross  Section  Computer  Programs 


A.  Introduction 

This  section  describes  nine  (9)  simulation  programs  which  have 
been  written  in  FORTRAN  Y to  execute  under  the  Honeywell  6000  GCOS 
operating  system.  These  computer  programs  determine  radar  cross 
section  for  the  following  targets: 

1 . Cone 

2.  Cone -Cylinder 

3.  Cylinder 

4.  Cylinder -Flare 

5.  Frustum 

6.  Frustum -Cylinder 

7.  Hemisphere -Cylinder 

8.  Missile 

9.  Dihedral  Corner  Reflector 

In  obtaining  cross  section,  the  user  can  vary  frequency,  polarization, 
and  bistatic  angle  as  a function  of  aspect  angle. 

Programs  1-7  were  developed  under  Contract  AF30602-67-C-0074 
for  RADC  by  Cornell  Aeronautical  Laboratory,  Inc.  (now  called  CALSPAN) 
under  subcontract  to  the  Fort  Worth  Division  of  General  Dynamics.  The 
theory  for  these  programs  is  described  in  RADC-TR-68-340,  "Investigation 
of  Scattering  Principles  - Volume  III  - Analytical  Investigation",  May  1969. 
Programs  8 and  9 were  also  developed  by  Cornell  Labs  under  a different 
contract.  Related  information  can  be  found  in  CAL  Report  No.  ER/RIS-10, 
"Radar  Scattering  Analysis",  August  1966,  and  the  documentation  for 
Contract  AFAL-TR -67-343,  "Investigation  of  Scattering  Center  Theory," 
December  1967.  All  the  programs  have  been  put  in  the  appropriate  time- 
sharing CARDIN  format  by  PRC/ISC  so  that  they  are  executable  by  means 
of  the  RADC  Interactive  Radar  Simulator.  Common  subroutines  needed  by 


two  or  more  of  the  programs  have  been  stored  in  files,  separate  from  the 
program  files,  themselves,  and  accessible  by  the  various  programs. 
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B.  CONE  Program 

1 . Introduction 

The  CONE  program  was  originally  developed  under  Contract 
AF30  ( 602 )-6 7 -C -00 74  for  RADC  by  Cornell  Aeronautical  Laboratory,  Inc., 
under  subcontract  to  the  Fort  Worth  Division  of  General  Dynamics.  Related 
information  pertaining  to  this  program  can  be  found  in  the  Program  GDT05 
documentation  produced  by  General  Dynamics.  The  theory  is  described  in 
RADC-TR -68-340,  "Investigation  of  Scattering  Principles  - Volume  111  - 
Analytical  Investigation",  May  1969. 

2.  Abstract 

Bas«:d  on  the  Geometrical  Diffraction  Theory  (GDT),  the  CONE 
program  computes  the  polarization  radar  cross  sections  in  dBsm  and  the 
scattering  phases  in  increments  of  the  aspect  angle  for  a right-circular 
cylinder. 

3.  Computer  Program  Operating  Environment 

a.  Computer 
HIS  6000 

b.  Source  Language 
FORTRAN  Y under  GCOS 

c.  Memory  Requirement 
23K  words 

d.  Typical  Processing  Time  Required 

0.0100  hours  (36  seconds) 

e.  Peripheral  Equipment  Requirement 

Four  disc  files  (file  codes:  07,  08,  09,  10) 
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Subroutines  Used 


Subroutines  obtained  from  SXSA  subroutine  file: 

UPDAT 

BESS 

GAM 

PLTGDT 

Subroutines  obtained  from  SXSB  subroutine  file: 
TAN 


4.  Inputs 

The  inputs  which  are  needed  for  the  executing  of  the  CONE 
program  are  as  follows: 

A2  - Radius  of  cone  (inches) 

H - Half  height  of  cylinder  (inches) 

CLAM  - Wave  Length  (inches) 

DELAL  - Increment  of  aspect  angle  (degrees) 

ALMIN  - Minimum  aspect  angle  (degrees) 

ALMAX  - Maximum  aspect  angle  (degrees) 

AL  - Initial  aspect  angle  (degrees) 

BET  - Azimuth  bistatic  angle  (degrees) 

Input  Format 

The  above  inputs  are  entered  into  the  program  through 
NAMELIST  format.  The  mnemonic  variable  INPUT  is  used  as  the 
NAMELIST  name.  The  first  input  card  must  contain  a $ followed  by 
INPUT  (i.e. , $ INPUT).  After  the  $INPUT  the  data  items  must  follow  in 
the  format  of: 

Variable  1 name  = (value). 

Variable  2 name  = (value), 

• 

Variable  n name  = (value)  $ 
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Each  data  item  must  be  separated  by  commas.  Following  the 
last  input  data  item  a $ must  be  present.  Refer  to  the  sample  job  stream. 
By  changing  the  above  inputs  the  user  can: 

o vary  the  radar  frequency  and  polarization  of  the  transmitting 
and  receiving  antennas, 

o vary  the  angle  at  which  the  target  is  viewed  (BISTATIC), 
o vary  the  size  of  the  cone. 


5.  Output 

Output  from  the  CONE  program  first  contains  a listing  of  the 
input  data.  Secondly,  the  output  contains  a list  of  the  aspect  angle  (AL)  at 
each  increment  from  the  input  minimum  to  input  maximum  versus  the  fol- 
lowing parameters: 

SV  - the  vertical  polarization  for  the  radar  cross  section  in 
dBsm. 

SH  - the  horizontal  polarization  for  the  radar  cross  section  in 
dBsm. 

THETAV  - scattered  phase  in  radians  of  the  vertical  polarization. 

THETAH  - scattered  phase  in  radians  of  the  horizontal  polari- 
zation. 

Through  a call  to  the  subroutine  PLTGDT  four  data  files  are 
built.  Each  file  contains  the  data  of  one  of  the  above  listed  outputs.  That 

file  07  contains  the  data  of  SV, 

file  08  contains  the  data  of  SH, 

file  09  contains  the  data  of  THETAV,  and 

file  10  contains  the  data  of  THETAH. 
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The  aspect  angle  (AL)  is  not  recorded  on  a separate  data  file. 
The  aspect  angle  can  be  easily  computed  for  the  above  data  by  using  the 
minimum  aspect  angle  and  the  increment  value  of  the  aspect  angle  both 
of  which  are  recorded  in  each  of  the  above  data  files.  That  is,  at  any  Nth 
increment  the  aspect  angle  is  equal  to  the  minimum  aspect  angle  plus  N 
times  the  increment  value. 
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Figure  IV-1  Logic  Flow  Diagram  for  CONE  Program  (Page  1 of  2) 


Figure  IV- 1 Logic  Flow  Diagram  for  CONE  Program  (Page  2 of  2) 
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CLEARY/0XSB 

05, 23K, , 10X 

07,  '■/,  L,  CLEARY /ST0RE1 

08,  U, L, CLEARY /ST0RE2 

09,  U, L, CLEARY/ STS  RE3 

1 0,  W, L, CLEARY/ST0RE4 
05 


Sample  Job  Stream  for  CONE  Program 
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Source  Listing  of  the  CONE  Program 


r 


I 


A 


• 0*JT  01  09-29-75  16.342 


- cone  *nwrrn  BTsrmir^aginfWTT 
inches  (*2)  a ',7i4.7. 


1 ■PfrUCTWCONE  AZTMUTff  ITSTaTTc  (ScoNE) 

COMMON/NAM/TYIIZj  u ) « YY2 ( 2 ,n 0)»Yy3<2000),YV4<2000)»XX(2000>,II 
COMPLEX  EJR1.EJR5.EJR6,EJR7,FJR9,EjR11,EJR12,EJR13»EUR14>EJR15, 
V |V,ZVC,ZHtZMC.RMSV,RMSH.RNSV,RNSH,SSV,SSH#EjRl6,EjRl7.EJPR 
N*MElIST/INPUT/A2,H,CLAM,DEL*L»ALM!N,AlH*X;aL.BET 
1001  rORH*T(lM  ,7E15.8) 

?l!ll  fO^HiT (1HI7777/7*~X r* INPUTS  - 

•/////2»x.' radijs  of  cone  in 

6///29X. *HAlF  HEI3HT  OF  CONE  IN  INCHES  < H | * 1,714,7, 

•///29X. 'WAVE  LSN3TH  IN  INCHES  (CLAM)  « ',714,7. 

• ///2»X. • INCREMENT  IN  ASPECT  ANGLE  IN  DEGREES  ( DEL AL  > ■ <,714, '7, 
•///29X. 'MINIMUM  ASPECT  ANGLE  IN  DEGREES  tALMIN)  ■ '.714,7, 

•7/779*.  rHAXlHUM  ASP^CT  lNGLf  TN'UFlTPFES  IAIMIST “■  ’,^14, 7,  ~ 
•///2»X, »*SPECT  ANGLE  IN  DEGREES  (AL)  ■ ',714,7, 

• ///29X. ’BISTATIC  ANGLE  IN  DEGREES  (BET)  * ' ,7i4,7,/lHl> 

2001  FORMAT (Jx, * AL '» 3X. 'SV(DBSM) ' ,lX, 'SH(DBSM) »,2X, 
atTMETAV ,2X» 'T4ETAH' .//) 

2002  7QRM>T<1X.77.2.1P2E9.2,0P2FB.3) 

t 

e 
.c 

e 


f 

e 

c 

6 

t 

C 


JNPUT  , NAMELIST  - INPUT 
A?  * RADIUS  07  CONE 
H ■ HAL7  height  07  CONE 
Cla'H' ■ KvKFraTRT TnThEF) 

DlLAL*  INCREMENT  IN  ASPECT  ANGLE  (DEGREES) 
ALMIN-  MINIMUM  ASPECT  ANGLE  (DEGREES) 
ALMAxa  MAXIMUM  ASPECT  ANGLE  (DEGREES) 

Al>  ASPECT  ANGLE  (DEGREES) 

■ET  ■ BISTATIC  ANGLE  (DEGREES) 


WRITE (06. 2000)  A2.H.CLAM.DELAL. ALM1N, ALMAX,ALf BET 

n • o 

TNETa-O. 

RRVJ.o. 

RMHJ.O. 

■ftCT'  "7 0754  i~.  "754  

Pt«3. 14159265 
A9  • A2/(2,*H) 

X > ATAN(A9> 

DTR  ■ PI/1B0. 

RTO  ■ 1RU./P1 
DElAl  t delal*dtr 
almjn  ■ almin*otr 

ALmAX  ■ ALMAXaOTR 
AL  * AL  • DTR 
ALO«AL 

b6t  ■ BEr  • OM 

CX  • (2.«Pr*C03(SET/2, J J /CLAM'  ” 

CALlaPl-X-BET/2. 

CAL2#-X*rPT/'2. 

CAL4aPI/2.  ♦ BET'2. 


00001000 

00001010 

00001020 

00001030 

00001040 

00001050 

000010*0 

00001070 

00001080 

OOOOIO’O 

00001100 

00001110 

00001120 

00001130 

00001140 

00001150 

000011*0 

00001170 

00001180 

00001190 

00001200 

00001210 

00001220 

00001230 

00001240 

000012*0 

000012*0 

00001270 

00001280 

00001290 

00001300 

OOOOI3IO 

00001320 

00001330 

00001340 

00001390 

00001360 

00001370 

JC01J80 

JC01390 

00001400 

00001410 

03001420 

00001430 

00001440 

00001450 

000014*0 

00001470 

00001480 

00001490 

00001500 

00001510 
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# 0 * 3 T 01  09-29-75  16.342 


CAL5»X  - BET^7 
C81  » 2 . -2, *X/3 I 
C82«1.5*x/Pt 
Cl  ■ PI/2. 

C2  ■ PI/4. 

C3  « 4 • *CKaSQR  T { 2,*PI ) 

C4  ■»  F.*(JK¥I2  

C5  ■ 2.*CK»H 
C6  • C0S<P1/CN1> 

C7  • S I N{ P I /CN1 ) 

C*  ■ COS(Pl/CN2) 

Cf  a Sl8(PI/CN2) 

'Cll  « (l./<Ce-:^(BET/cN2,,, 

CANSC1  « 2,442®  i7B4*C0S(BET/2. > 

CANSC2  ■ 2,442® 1 784 *COS<  BET/2 . 1 
80  To  95 

10  It  « IIM 

C13  ■ C4«StN*A.) 

C14  « C5*C0S( A.) 

C*0  ■ C«*C0S<A.) 

|P  (AL.  IT,  X)  33  TO  71 
|P  (aL-CaLi)  11,11,12 

11  C15  » C0®I<2.»<PI-X-AL> >/CNl> 

RWl  a C2-C14 

C8RH1  ■ COS(RHl) 

SN^Hl  * SIN(«H1> 

Ed*l  a C*PIX(C3RH1.SNRh1» 

RMSV  * <C7/<C3»C^1 > > • < 1 ./(C6-C15) >*EJR1 
80  TO  13 

12  RMSV  a 0. 

13  C0V,T I NUg 

IF  <C13.'JE,CANSC1>  GO  TO  2 
IF(A|_.  GT.  Cl)  GO  TO  2u 
Cl7  a (C9/CN2)»S0BT( a2/qk) 

CC*2S2  • Ck»A2 
IT  eQ,  0.)  30  TO  35 

C6A2S1  * 1,/SIXUl> 
ce*2s  * CCA2S1 

ir  ( CC42S2  - 0CA2S1)  35.35,45 
35  CC*24  ■ CCA2S2 
45  CONTINUE 

C20  a S0RTJCCA2S) 

C?1  » fl./<C8-:03l <3.*PI-2.*AL>/CN?) ) ) 
C23  • (l./(C«-:OS( (3.*PI«2.«AL)/CN?>n 
R2$V  a Cl7*C2  *(021-011) 

R2SH  a ClT*C2'*C21*Cll) 

R4SV  « Cl7#C2  *<C23-C11) 

R4SM  a C17*c2'*(c23»cU) 

RM5  a C 1 4 
R*6  a -Cl3*C2 
RM7  ■ -R.I6 
CS’H5  s C0S<RM5> 


00001520 

00001530 

00001540 

00001550 

00001560 

00001570 

00001580 

00001500 

00001600 

00001610 

00001*20 

00001630 

00001640 

00001650 

00001660 

0000l*70 

00001680 

00001690 

00001700 

00001710 

00001720 

00001730 

00001740 

00001750 

00001760 
00001770 
00001780 
00001790 
00001800 
00001810 
00001820 
00001830 
00001840 
00001*50 
00001860 
00001870 
00001880 
00001890 
0C091900 
00001910 
00001920 
00001930 
00001940 
00001950 
00001960 
00001970 
00001980 
00001990 
OG  002000 
000G2010 
00002020 
00002030 
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90 AST  01  09-29-75  16.342 

~«w~a“ffnmnm 

Cl9«6  ■ COSUHS) 
t8»H6  ■ SIN(HHS) 
elRH7  « C0S(««7) 

SR9H7  ■ SIN(RH7> 

1JR5  ■ CMPLX(CS845.SNRH5> 

Sd*7  ■ CHP|.X<C3R47,SNRM7) 

RBSV  a R2SV*EJR5*EJR6>R4SV*EJR5*EJr7 
R«SH  • «2Sh»EJ,5*EJR6*R4Sh.EJR5*EJR7 
IV  « R*SV*RNSV 
tH  a RMSV  «RNS-* 

88  TS  50 

20  tT  (Cl3.  l-E . CAVSC2)  GO  TO  40 

C25  a (C9aSQRT(A2/(S!N(AL)«CK)))/CN2 
C*7  a l./(Ca-C3S((3.*PI-2.*AU/CN2)  ) 
I r C At.  LE.  X)  83  TO  101 

102  ci9  a 1./(CB-C3S((-PI*2.*Al)/CN2)> 

80  TO  103 

101  C29  a l./(C6-C3S(  (3,aPU2.*AL)/CN2) ) 

103  C0N7inuE 

RS2SV  * C25*(C27-Cll> 

R*2SM  ■ C^SatC^C1!) 

RS4SV  > C25*( C29-C11 ) 

RS4SQ  a C25*(C2VCll) 
ir(AL-CAL2)  85.175.175 
•5  RI2SV  a j. 

R$2Sa  ■ >. 

175  irUi.-CAt.5l  135.135*125 
125  |f<Al-CAL4)  145. 135. 135 
145  Rf 4$y  a j. 

R84SM  ■ U. 

135  CONTINUE 

R«9  a - ( C13-C14 ) *C2 
*MU  a ( C13*C14 ) -C2 
C8RM9  ■ C0S<RH9) 

S8RM9  ■ SIN(RhV) 

CSRMn  a C0S(R4ll) 

$8**11  a S I N( R4il ) 

EJR9  a cMpLX(cSR**9.SNRH9) 

EJrU  « CHPuXCSRhu.SnRhH) 

ZV  ■ RS2SV*EJR9*RS4SVaEJRllaRMSV 
2M  a RS25HaEjR9*RS4SH*EjRU*RMSV 
GO  To  5q 

40  CIO  a (C9/CN2)»S3RT(A2/CK) 

CCAU52  a CK*A2 

IT  <aL.  EQ,  PI>  30  TO  155 

CC4U81  » 1,/SI V( AL) 

CC*US  • CCAUS1 

ir (CCAUS2-CCAU31)  155,155,165 
l55  CCAUS  » CCAUS2 
165  CONTINUE 


30002040 

00002050 

00002060 

00002070 

00002080 

00002090 

00002100 

00002110 

00002120 

00002130 

00002140 

00002150 

00002160 

00002170 

00002180 

00002190 

00002200 

00002210 

00002220 

00002230 

00002240 

88881118 
00002270 
00002 280 
00002290 
00002300 
00002310 
00002}20 
00002330 
00002340 
00002350 
00002360 
00 002370 
00002380 
00002390 
00002400 
00002410 
00002420 
00002430 
00002440 
00002450 
00002460 
00002470 
00002480 
00002490 
00002500 
00002510 
00002520 
00002530 
0*002540 
00002550 


IV.14 


•063T  01  09-29-75  16.342 


fJl  ■ SOlfT^CiTST 

C32  » C4*A2«SQ4T(PI  ) 

ORDER*  1. 

CAtC  BESSlORDER.  C13.  BS) 

C33  > BS 
RH12  ■ -Cl 

u«y  

RM14  • -RHJ3 
RM15  « C14 
CSRM12  * C0S(RH12) 

SNRH12  ■ SlN(R4l2) 

CSBH13  « CQStR-U 3 ) 

SnRh{3  a SlN(R4n) 

C8(,Hl4  > COS < R -4 1 4 ) 

SN«H14  s SIN<RH14) 

CSRH15  * C0S<R-»l5> 

SSJRH15  « S!N<R415) 

EjjB12  « CMPIXI  :SRH12*SNRH12) 

e3ri3  ■ chblx<:sbhi3.s^i3~>  ' 

EJS14  • CmPLXCSBh14.SNRhi4» 

Ed’15  ■ CMPLX1 :SRH15.SNRH15> 

C0XOX2  « ^,5 

! r <Af  6Q.  PD  30  TO  l85 
C0XQx2  « CJ3/C13 
185  CONTINUE 

IV  • C32*CB^0x  2»i JRl2*E JRl5-C30*C3l*Cll»E JRl5* (EdRl3*E JRl4  > 
2*4  • C32«CBX0X2*EJR12*EJR15*C30*C31*C11#EJR15#(EJR13*EJR14) 

2°  T°  „ „ 

71  C60  ■ 2.*SQRT<»I )*A2#CQ/CN2 

C61  * (2,*SIN(3,.Pi/CN^).TaN(AL))/cN2 

C62  * 1./<C8-C3S(3.*PI/CN2) ) 

ORDER  ■ J. 

CALL  BESSIORDER,  C13.  MS) 

C*3  * BS 
oroer  * i* 

C A *-L  bESSIORDER,  C13,  ES) 

C6 4 s BS 
ORDER  * 2. 

CAuL  BESSIORDER.  C13.  HS) 

C65  , «S 
RHl*  * Cl 

CSRHift  * C0S(  R "4 1 6 ) 

SRRR16  * S|N(Rm6) 

Ed’l6  * CMPLX< :SRm16.SNRh16) 

RM17  * -C14 
CSRW17  * C0S<RR17) 

SSRM17  . S I N ( RRl 7 > 

EJR17  « CBPLXI :SRHl7.SNRHl7) 

ZV  » (T6  «(C62*C63-C61<»(C62**2)»C64«EJRi6*Cll*C65)  )«EJ«i7 
ZH  > (C6  t*(C6?»C63-C61a(C62**2)*C64*EjRl6-Cll«C65)  )»EJRl7 
GO  TO  50 
50  RMPR  s -C14 


00002560 

00002570 

00002580 

00002590 

00002600 

00002610 

00002620 

00002630 

00002640 

00002650 

00002660 

000026*0 

00002680 

00002690 

00002700 

00002710 

00002720 

00002*30 

00002740 

00002750 

00002760 

00002770 

00002**0 

00002790 

00002800 

00002810 

00002820 

00002830 

00002840 

00002850 

00002360 

00002870 

00002880 

00002890 

00002900 

00002910 

00002920 

00002930 

00002940 

00002950 

00002960 

0C002970 

00002980 

00002990 

00003000 

00003010 

00003020 

0C003030 

00003040 

00003050 

00003060 

00003070 


IV- 1 5 


•0*3T  01  09-29-75  16.342 


CSP*  ■ 'COSiRhPTT" 

•SPR  a SIN1RMP4) 

RRPR  ■ CMPLX(CSPR.SNPR) 

IV  ■ ZV.gJPR 
IH  ■ ZH.fiJPR 
IVC  ■ COMJG < ZV > 

nv.fv*^  

l«C»CONJa(ZH) 

•MV1«aTan21A!H*Q(ZV),REAL(ZV) ) 

CALL  UPDAT(RMV1.RHV2,PI,THETAV) 
R«H1,aTaN2IAIMAQ(ZH),REaL<zH)) 

CALL  WDaT(RSIH1, RHH2.PT, 

RRALSV  ■ REAL ( 6SV > 

NlALtH  ■ REAL ( 8S-U 

RRLSV1«REALSV*RELC1 

RRL8V2  « 1Q.«A.0310<RELSV1) 

RRL»W1  » REALSH»RELC1  

RlCfH2  ■ io.*AT5fflofRELSflir" ' 

AL«RTD»AL 

W»ItE(6,2no2>  AL.  RELSV2.  RELSH2.  THETaV.  THETAH 
mill)  ■ RELSV2 
Vt2( 1 1 > • RELS42 
VY3(!})  « THETAV 

vr*TTT>  . thItaH 

**<m  ■ al 

AL  ■ DTR*AL 
ATNDKb I 1 

AL*A ! nDx«0elal  *alo 
IP  (AL-ALHAX)  10.10#20U 

260  tiCCPCTm^ 

qO  TO  1 
R5  Cfl^tlNUE 

HRITE(A.2P01) 

TRETav  s o, 

•RETAH  S n, 

m mi — 

•99  COMTINUe 

STOP 

ISO 


00003080 

OOOOSO’O 

00003100 

00003110 

00003120 

00003130 

00003140 

00003150 

00003160 

00003170 

00003100 

00003190 

’60003200 

00003210 

00003220 

00003230 

00003240 

00003250 

00003260 

00003270 

00003280 

00003290 

00003300 

00003310 

00003320 

00003330 

00003340 

00003350 

00003360 

000033*0 

00003380 

00003390 

00003400 

00003410 

00003420 

00003430 

00003440 

00003450 

00003460 

00003470 


Sample  Input  for  the  CONE  Program  as  Output 


xiputs  • con  aexnuxi  sxstatxc  paooean 


BABXVS  or  COIE  XI  XICMII  U2)  - 1» 1600000 

NAir  HXSWT  OP  eoil  X»  XlClgl  (|)  m 7,9070000 

WAVE  LKlQTH  XI  XieilS  (CLAH)  • 1,9*72000 

XldRUEIT  XI  AlPlCt  AA«t*  XI  PBSIBBS  IPBLAL)  ■ 0,1000000 

nxixnuH  aspect  aisle  Xi  desebis  (alhid  ■ o( 

NAxXHUH  ASPECT  AISLE  X|  DISAEIS  (ALNAX)  ■ 110,0000000 

aspect  aislb  XI  DBSIBBS  (AL)  n 0, 

SXITATXC  AISLE  XI  0|6|EBS  (BBT)  • 0, 


Sample  Output  for  the  CONE  Program 


IV. 19 


At  IVtDBSH)  SK(BBlK)  THITaV  THBTAH 


UKiniij 

EU 

■ tot 

~ r.TSJT" 

0.10-1,85* 

01-1.861 

01 

2.654 

2*.  654 

0.30*1«I6C 

01-1.168 

ol 

2'.  654 

2'.  654 

0. JO-1. 162 

01-1.961 

01 

2.655 

2.655 

0.60-1.16* 

01-1.968 

01 

2'.  656 

2^656 

0.90-1.16* 

01-1.961 

01 

2.657 

2.657 

0.90-1.16* 

K2EUU1J 

TT 

2.15  9 

S'.  689 

0.70-1.16* 

01*1.871 

01 

2’.  661 

2'.  661 

0 ,l0-  1.16* 

01-1.881 

ol 

2.663 

2.663 

0.90-1, 17* 

01-1,891 

01 

2^665 

a;665 

1.90-1'.I7* 

01-1. 9oi 

01 

2.668 

2.668 

1.10-1‘.I7* 

01-1.901 

01 

2.671 

_i;67i 

1. Soil, 17* 

"01-1,918 

ol 

2, 675 

2^679 

1.30-1,18* 

01-1.92* 

01 

2.678 

2'.  678 

1.40-1.88* 

01-1.941 

ol 

2.682 

2r.  682 

1,90-1, 89* 

01-1.95* 

01 

2^687 

2;686 

1.60-1,89* 

01*1,968 

01 

2.691 

2.691 

1.70,1^19* 

01-1.988 

01 

2^696 

2;  696 

ltlO-1,90* 

01-1,99* 

ur 

2, 7O 1 

2^701 

1,90-1,90* 

01-2,01* 

01 

2^107 

2;706 

2.00-1,91* 

01-2,038 

ol 

2,712 

2.712 

2,10-1,92* 

01-2.04* 

01 

2;718 

2>718 

2.20-1,92* 

01-2.068 

01 

2.725 

2.724 

2,  3Q?l*9l*_Gi-4.mJ2l 

_2j?21 

2^730 

2,40-1.94* 

01-2.11* 

01 

2.738 

2.737 

2.50-1,94* 

01-2.138 

01 

2;.t“5 

2;  744 

2.90-1,95* 

01-2. 168 

01 

2.753 

2.751 

2.70-1^,96* 

01-2.188 

01 

2>761 

2;.759 

2 . 6o-1 ,96* 

01-2. B18 

01 

2.769 

2.767 

2,90-1 j97* 

-0j-2ji“i 

01 

■ UVr 

2^775 

3.06*1,981 

01-2.288 

01 

2.786 

2.783 

3,10-1.99* 

01-2,818 

01 

2>795 

2.792 

3.20-2,00* 

01-2.158 

01 

2.804 

2’.  800 

3.30-2.01* 

01-2.398 

01 

2.813 

2’,  809 

3.40-2.02* 

01-2.438 

01 

2.823 

2.818 

3.80-2,03* 

01-2.478 

01 

2.833 

2;  828 

3.8o-2*,0tof 

01-2.828 

ol 

2;i44 

S’.  837 

3.70-2,05* 

01*2,578 

01 

2;  854 

2;.846 

3.90-2,06* 

01-2.628 

01 

2.865 

2.856 

3.90-2.07* 

01-2.688 

01 

2.877 

2'.  866 

to. 00-2, 08* 

01-2.758 

ol 

2.888 

2'.  875 

4.10-2,10* 

01-2.828 

01 

2.900 

2'.  885 

4.20-2; 11* 

01-2.898 

ol 

2’.  9 12 

2'.  894 

“.30-2, 12* 

01-2.98* 

01 

2'.  925 

2’.  903 

“.40-2.14* 

01-3.07* 

01 

2.938 

2'.  9 1 1 

“.80-2,15* 

01-3.18* 

01 

2’.  951 

2‘.  9 18 

“.  «0-2.l6* 

01-3.80* 

01 

2.964 

2.923 

“.70-2.18* 

01-3.448 

01 

2.978 

2'.  926 

“.80-2.19* 

01-3. 6li 

ol 

2.991 

2.923 

“.90-2.21* 

01-3.838 

01 

3.006 

2.912 

5.00-2,22* 

01*4, 118 

01 

3'.  020 

2.882 

5.10-2.2“* 

01-4.518 

01 

3.035 

2.796 

5.20-2,26* 

01-5.23* 

ol 

3.050 

2.436 

5,30-2^,27* 

01-5,98* 

01 

3’, 065 

0/743 

5. “0-2. 29* 

01-4. 608 

1. 1 

3.081 

0.262 

5.50-2,31* 

01-4,16* 

01 

3.097 

0/161 

5.60-2.33* 

01-3.878 

01 

3’.  113 

0.127 

IV- 20 


5.70-2.35E 

01-3.66* 

01 

3.130 

0.117 

5.I0-2.37E 

01-3, tt8E 

• 1 

3,147 

0.116 

5.90-2‘.39E 

0 1-3 , 3ttE 

01 

3*.  16tt 

O'.  122 

6.00-2.41E 

01-3.221 

. 1 

3.181 

0.131 

6. 10-2.43E 

01-3. 1 1E 

ol 

3'.  199 

O'.  1fc3 

6.2Q-2.45E 

01-3.02* 

01 

3.217 

O’.  156 

6.30-2.U7E 

01-2.94* 

01 

3.235 

O'.  171 

6 .U0-2.U9E 

C1-2.86E 

C 1 

3.25tt 

O'.  187 

6.I0-2.52E 

01-2. 79* 

01 

3.2^2 

0.203 

6. 60-2, SUE 

C1-2.73E 

0 1 

3,292 

O'.  221 

6.70-2.57E 

01-2.68* 

01 

3.311 

0.239 

6.80-2.59E 

01-2.62* 

1 

3.331 

0.257 

6 .90-2. 62E 

C 1-2 . 58* 

01 

3'.  351 

0.276 

7.00-2.65E 

01-2.53* 

vl 

3.371 

0.296 

7.10-2.67E 

01-2. tt9* 

01 

3.392 

O'.  3 1 6 

7.20-2.70E 

01-2, tt5* 

. 1 

3.  tt  13 

0.337 

7.30-2.73E 

01-2. ttl* 

01 

3 • fc  3 tt 

0.358 

7.U0-2.76E 

01-2.38* 

',1 

3.U55 

O’.  379 

7.B0-2.79E 

01-2. 35* 

01 

3 '•  tt  7 7 

o'.fcoi 

7.60-2.62E 

C 1-2.32* 

01 

3 • tt  9 9 

0.423 

7.70-2.16* 

01-2.29* 

01 

3'.  521 

0’.fcU5 

7.80-2.89E 

01-2. 27E 

ul 

3.544 

0’.fc«8 

7.80-2.93E 

01-2. 2tt* 

01 

3’.  567 

O’.  491 

8.90-2.96E 

01-2.22* 

L 1 

3.590 

0.515 

8. 10-3.00E 

01-2.20* 

01 

3.613 

0.539 

8.20-3.04E 

01-2,18* 

1 

3.637 

0.563 

8,30-3,081 

01-2.16* 

01 

3'.  661 

0.588 

8.40-3.12* 

f 1-2. IttE 

Cl 

3.685 

0.613 

8.50-3, 17E 

01-2.13* 

01 

3.^10 

0.638 

8 ,60-3 . 2 IE 

01-2,11* 

C 1 

3 . 73tt 

0.663 

8.70-3.26E 

01-2.10* 

01 

3.759 

0.689 

8.80-3,31* 

C 1-2.09* 

C 1 

3.785 

0.715 

8.90-3.36* 

01-2.08* 

01 

3 . 8 1 0 

O'.  742 

9.00-3.U2E 

01-2.07* 

. 1 

3.836 

0.769 

9. 10-3.U7E 

01-2.06* 

01 

3.862 

0.796 

9.20-3.53E 

01-2,05* 

C 1 

3.889 

0.823 

9.30-3.60* 

01-2, OttE 

01 

3.915 

0.851 

9 , ttO-3 , 67E 

01-2. OU* 

0 1 

3,942 

0.879 

9.50-3.7UE 

01-2.03* 

Cl 

3.969 

O'.  907 

9.60-3.82E 

01-2.03* 

. 1 

3.996 

O'.  936 

9.70-3.90E 

C1-2.02E 

01 

fc  . 0 2 tt 

O’.  965 

9.80-3.99E 

C 1-2.02* 

Cl 

fc . 0 5 1 

0.994 

9 .90-4 . 09E 

01-2.02* 

01 

4.079 

1.023 

10.00-4.2OE 

C 1*2, 02E 

. 1 

fc.  107 

1 .053 

lO.10-fc.32E 

01-2.62* 

01 

fc  ’.  1 3 fc 

1.083 

lO.20-fc.fc6E 

01-2. 02* 

1 

4.162 

1’.  114 

10. 30-4. 63* 

01-2,02* 

01 

fc  ’.  1 8 8 

I’.lfcfc 

lO.ttO-fc.82E 

01-2,02* 

ol 

fc . 2 Ifc 

1.175 

10.50-5.07E 

C 1-2.03* 

01 

4.237 

1.207 

10.60-5.U1E 

C 1-2.03* 

1 

4.253 

1.238 

10.70-5.95E 

C1-2.0UE 

01 

4.245 

1.270 

i0.B0-7.tt3E 

C1-2,0fct 

; 1 

3.877 

1.302 

10.90-6.31E 

01-2.05* 

01 

1.378 

1.335 

11.00-5.63E 

C 1-2.06* 

c 1 

1.341 

1.368 

11.l0-5.26E 

01-2.07* 

01 

1.353 

I’.fcOI 

11.20-5.00E 

01-2.08* 

1 1 

1.375 

1,434 

1 1 .30-4.ll* 

01-2.09* 

01 

1.403 

I'.fc67 

1 1 ,ttO-5,U3E 

C 1-2. 6tt* 

1 

0,116 

-O'.  056 

11. 5o-5 .ttttE 

01-2. 6tt* 

01 

o'.o?o 

-O’.  091 

11. #0-5.441  01 

11.70- 5.45E  01 
lT7l0i5745E  01 
1 * .10-5,468  01 

12.90- 5'.46E  01 

12.10-5.46E  01 

12.20- 5.46E  01 

12.10- 5. 46E  01 
T?7l0*^V6*E  01 

12.90- 5.45E  01 

12.10- 5.45E  01 

12.70- 5.44E  01 

12.10- 5.43E  01 

12.90- 5.42E  01 

13.90- S'.41E  01 

13.10- 5'.39E  01 

15.20- 5.3BE  01 

13.30- 5.37E  01 

13.40- 5.35E  01 

13.90- 5.33E  01 

13.10- 5.32E  01 

13.70- 5.30E  01 

13.10- 5.28E  01 

13.90- 5. 26E  01 

19.00- 5.25E  01 

_ 1 < 0-5  j J3E__0 1 

iTT.fd-5.2lE  01 

19.30- 5'.  19E  01 

14.90- 5,1 BE  01 

19.90- 5. 16E  01 
lU.#0-5'.  14E  01 
jB^o-SjjSE  01 

ll».T0-5,11E  01 

14.90- 5, 10E  01 

15.00- 5. 08E  01 

15.10- 5, 07E  01 

15.20- 5.05E  01 

15.30- 5. 04E  01 
i5.#o-5'.03E  01 

15.60- 5. 02E  01 
«S,#0-5.00E  01 

15.70- 4. 99E  01 

15. ®Q-4.98E  01 

15.90- 4, 98E  01 

16.00- 4',#7E  01 

16.10- 4.96E  01 

16.20- 4, 95E  01 

16.30- 4.95E  01 
1«.40-4,94E  Cl 
1t.Bo-4.94E  01 

16. 60- 4,938  Cl 

16 .70- 4,93E  01 

16.  *0-4,938  01 

16 . 90- 4,938  01 

17.00- 4’.93E  01 
17^10-4, 93E  01 
l7.5o*4,93E  01 

17.90- 4.93E  01 

17.40- 4'.93E  01 


2.643  ul 
2.65#  01 
27851  'oT 
2.65#  01 
2.669  0 1 
2 .66#  01 
2.669  Ol 
2.67#  01 

r.rr  r oT 

2.67#  01 
2. 668  ul 
2.68#  01 
2.688  01 
2.698  01 
2769#  01 
2.69#  01 
2.698  Ol 

2.708  01 

2.708  ul 
2,70#  01 
2T70#  CT 
2.71#  01 
2.718  Ol 
2.71#  01 
2.718  01 
2jlii  oi_ 
2.728  Of 
2.72#  Ol 
2.728  Ol 
2.72#  01 
2.728  01 


2.738 

01 

2,73# 

ol 

2.738 

01 

2.73# 

01 

2.738 

C'1 

2.73# 

01 

2.74# 

oi 

2.74# 

01 

2.748 

ol 

2.74# 

01 

2.74# 

.1 

2.74  # 

01 

2.75# 

'61 

2.75# 

01 

2.758 

01 

2.75# 

01 

2.75# 

cl 

2.76# 

01 

2,768 

ol 

2.76# 

01 

2.768 

01 

2.768 

01 

2.778 

01 

3,77# 

Qi 

2.77# 

cl 

2.77# 

01 

2.708 

ul 

V | I ' # 

0,646  io;723 

0.892  -0, 758 


I • « v w I • I W 

i'.si4  •i;isa 

1 • 345  -1,173 

1V3I5  _ii;i07 
1.404  -1.241 

i;,632  il',274 

1.460  -1,308 

1.486  -1.342 

1.512  il',376 

1.538  -1.409 

1.562  *1.443 

1.886  -1.476 

1,610  -1,509 

1.633  -1.543 

1.656  il',576 

1.678  -1.609 

i',701  -1.642 

1.723  -V.675 

1.744  -1.708 

1.766  il'.7U1 

1.787  -1.774 
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00  2.89*  00 
00-2^91*  (?5 


6.763 

67963 
67963 
5^962 
6.962 
"579*5 
6.962 
r.96i 
^?61 
6.961 

6^959 
6.959 
6^951 
6,957 


2*96*  00  2. 

2*991  00  2.99*  00 
3,01*  00  3.01*  00 
3*06*  00  3.Q6*  00 
3*06*  00  3.06*  00 
'8*  ,QQ  1j 
3,10*  00  3.101 

3j*  1 1*  oo  3* hi  oo 

3.13*  00  3.13*  <J0 
3 j*  1 6 B 00  3.161  00 
3.16*  00  3.16*  00 

MSOXJjiiiQl. 

3,15*  CO  3.15*  00 


• 

97955 

6’,  956 
6,953 


67969 
6;766 
6.967 


75T 
*750 
.750 
7769 
.768 

r 6< 

*766 

7765 

7765 

,766 

'7762 

,761 

,760 

*739 

.736 


•»,  7** 7 

6,746  w28*,737 
67765  -26^736 
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CONE-CYLINDER  Program 
1*  Introduction 


The  CONE-CYLINDER  program  was  originally  developed 
under  Contract  AF30  (602)-67-C-0074  for  RADC  by  Cornell  Aeronautical 
Laboratory,  Inc.,  under  subcontract  to  the  Fort  Worth  Division  of  General 
Dynamics.  Related  information  pertaining  to  this  program  can  be  found 
in  the  program  GDT06  documentation  produced  by  General  Dynamics. 

The  theory  is  described  In  RADC-TR -68-340,  "Investigation  of  Scattering 
Principles  - Volume  III  - Analytical  Investigation",  May  1969. 

2.  Abstract 

Based  on  the  Geometrical  Diffraction  Theory  (GDT),  the  CONE- 
CYLINDER  program  computes  the  polarization  radar  cross  sections  in 
dBsm  and  the  scattering  phases  in  increments  of  the  aspect  angle  for  a 
right-circular  cone -cylinder. 

3.  Computer  Program  Operating  Environment 

a.  Computer 
HIS  6000 

b.  Source  Language 
FORTRAN  Y under  GCOS 

c.  Memory  Requirement 
24K  words 

d.  Typical  Processing  Time  Required 
0.0127  hours  (44.64  seconds) 

e.  Peripheral  Equipment  Requirement 
Four  disc  files  (file  codes:  07,08,09,  10) 


- .y, " 
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f.  Subroutines  Used 

Subroutines  obtained  from  SXSA  subroutine  file: 

UPDAT 

BESS 

GAM 

PLTGDT 

Subroutines  obtained  from  SXSB  subroutine  file: 
TAN 


4.  Inputs 

The  inputs  which  are  needed  for  the  executing  of  the  CONE- 
CYLINDER  program  are  as  follows: 

A - Radius  of  cylinder  (inches) 

HI  - Half  height  of  cone  (inches) 

H2  - Half  height  of  cylinder  (inches) 

CLAM  - Wave  Length  ( inches) 

DELAL  - Increment  of  aspect  angle  (degrees) 

ALMIN  - Minimum  aspect  angle  (degrees) 

ALMAX  - Maximum  aspect  angle  (degrees) 

AL  - Initial  aspect  angle  (degrees) 

Input  Format 

The  above  inputs  are  entered  into  the  program  through 
NAMELIST  format.  The  mnemonic  variable  INPUT  is  used  as  the 
NAMELIST  name.  The  first  input  card  must  contain  a $ followed  by 
INPUT  (i.  e. , $INPUT).  After  the  $INPUT  the  data  items  must  follow  in 
the  format  of: 

variable  1 name  = (value), 
variable  2 name  = (value), 

• 

variable  n name  = (value)  $ 

Each  data  item  must  be  separated  by  commas.  Following 
the  last  input  data  item  a $ must  be  present.  Refer  to  the  sample  job 
stream. 
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By  changing  the  above  inputs  the  user  can: 

o vary  the  radar  frequency  and  polarization  of  the  transmitting 
and  receiving  antennas, 

o vary  the  size  of  the  cone, 

o vary  the  size  of  the  cylinder, 

5.  Output 

Output  from  the  CONE- CYLINDER  program  first  contains  a 
listing  of  the  input  data.  Secondly,  the  output  contains  a list  of  the  aspect 
angle  (AL)  at  each  increment  from  the  input  minimum  to  input  maximum 
versus  the  following  parameters: 

SV  - the  vertical  polarization  for  the  radar  cross  section  in 
dBsm. 

SH  - the  horizontal  polarization  for  the  radar  cross  section  in 
dBsm, 

THETAV  - scattered  phase  in  radians  of  the  vertical  polarization. 

THETAH  - scattered  phase  in  radians  of  the  horizontal  polari- 
zation. 

Through  a call  to  the  subroutine  PLTGDT  four  data  files  are 
built.  Each  file  contains  the  data  of  one  of  the  above  listed  outputs.  That 

i«, 

file  07  contains  the  data  of  SV, 

file  08  contains  the  data  of  SH, 

file  09  contains  the  data  of  THETAV,  and 

file  10  contains  the  data  of  THETAH. 

The  aspect  angle  (AL)  is  not  recorded  on  a separate  data  file. 

The  aspect  angle  can  be  easily  computed  for  the  above  data  by  using  the 
minimum  aspect  angle  and  the  increment  value  of  the  aspect  angle  both  of 
which  are  recorded  in  each  of  the  above  data  files.  That  is,  at  any  Nth 
increment  the  aspect  angle  is  equal  to  the  minimum  aspect  angle  plus  N 
times  the  increment  value. 
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Figure  IV-2Logic  Flow  Diagram  for  CONE-CYLINDER  Program 

(Page  1 of  2) 
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Figure  N-2  Logic  Flow  Diagram  for  CONE-CYLINDER  Program  (Page  2 of  2) 
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$ IDDJT  CLEARY, NEUFFER  ,65121 1 04RADC 

S IJSERID  CLEARYSTHREE 

S L0UL0AD 

S 0PT10N  FORTRAN 

$ SELECT  CLEARY /0C0CY 

$ SELECT  CLEARY /0XSA 

$ SELECT  CLEARY /0XSD 

S EXECUTE 

$ LIMITS  05, 24K,  , 1 OK 

S PRMFL  07, W, L, CLEARY /STORE  1 

S PRMFL  03, U, L, CLEARY / 3T0RE2 

S PRMFL  09,  L,  CLEARY/ST0RE3 

S PRMFL  10,  J,L,CLEARY/ST0RE4 

$ DATA  05 

S INPUT 
A=3. 1 6, 

Ul=5.39 15, 

M2=5. 2565, 

CLAM= 1 .9759, 

DELAL=0. 1, 

ALMIN=0.0, 

ALMAX= 130.0, 

AL=0 . 0 $ 


HIS -6000  Batch  Submittal  Form 
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Source  Listing  of  the  CONE-CYLINDER  Program 


O'  o 


2960T  Oi  10-06-73  10.632 

P *OC R AM  CON E C y j, XNOE*  { 9 C OCT ) 

CoHHON/*AM/yy 1< 2800 ).yy2( 2000 ),yy3( 2000 ),vy4( 2000 ),XX( 2000 ),XX 
COMPLEX  EJR1.EJ*2»fJR3,  WR4,EJR5,EJ16,EJR?,E<JI8,E1J*9«E.JR10# 

X *MSbV.*MSbH'.R»SV.R*SH.k13Rb.XV.ZVC.*H,ZMc.S3v,SSH 

RAMELiST/iMPUT/A»H1'.H2.cLAM,DEtAL.  AlMjH,  AlMAX.Al 
2000  PO*HAT(  1H1./////09X. 'tNPUTS  - cO«E  cHiRdeB** 

*77/7759Xr,«|BXUS  Of  cfH^oE*  X»  Z"C"ES  T^T  ■ 


*///29X.*HalP 


h.lf 


WXVE 


»oo 


*77/29x 
*///29x, 
*/7/29x.*i 
*//72ax. ‘minimum 
*77729x,*fTAxfHUfi 
*///29x.‘lNlTlAl, 
*/ 1 H 1 J 


HbiOHT 

HeifeHT 

LeNSTH 


OF 

OF 

SN 


cONE  IN  iNjjHlS  (Ml) 


# • F ^ 4 7 1 

CTIINOE*  I*  I»CM*S  f**2>  ■ * If  1«.7. 

IUCHES  <cLaM)  • *,PH,7, 

CReMbN*  i*  ASPECT  ANGlE  I*  DE°ReEs  < PC^AI. ) ■ '.P14.7, 
SP*rT  J^Le  IN  p|GBEEs  ( .LMZN)  ■ »,F14,7, 
sfEcf  Ho  it  I»  DE<S*EES  tALHA*)  a ‘.P14.7. 
*9PEcT  ANOtu  I*  DEG*EES  (AL)  ■ '#F14,7, 


1 fOBMAT( jX.'Al* .3*.'SV(DBSH)'« IX. 1 IH { DBSM ) * , 2X , 
**thetav'#2x»4tiie¥ah*  »//) 


2002  FOBMATt 1X.F7.2. 1P2F9 . 2. 0P2F8 . J ) 
1 lEAD^5. INPUT, Eii0-Q99) 

V* iTE(O6,2OC0)  A*H1.K2. 

ZZ  “ o 
theta  ■ o. 
lHV2  ■ o. 

>HH2  ■ 0.  

&ELC1  ■ .C254*t.  )|54 
Pi  • 3.14159265 
*9  ■ A/(2.*H1) 

X - ATAN ( A9 ) 

6TB  ■ PZ/180'. 

_«TD  • HO./PZ  _ _ _ 

l*LAl'i'DELAi*5Tf 
ALMXN  ■ AtMZN*DH 
ALMa*  ■ alhax*ot* 

AL  - aL*DTB 
CK  - T2.*PI)7ctAM 
ALO  ■ AL 

- r.-2;*x7fz 

C*2  ■ 1,«X/PX 
C* 3 • 3./2, 

Cl  ■ PZ/2. 

C2  ■ PI/4. 

C3  « 4.*CK*S0RT(_2.*PI) 

C4  « J‘.*ClC*A 
C5  * 2 • *CK*H  1 
C6  * 2. *CK*H2 
cali  ■ pi-x 
Cals  ■ pT/2. 

Cy  ■ COS ( Pl/CN  1 ) 

C8  ■ SIN'fPi/cNlJ 
C9  ■ COS ( PI/CN2 ) 

cio  ■ s:n(pi/cn21 


clam,delal.ai.mxn,almax,al 


ooooiooo 
00001010 
00001020 
00001030 
00001040 
00001050 
00001060 
00001010 
00001080 
0 0001090 

0000  nip 

00001  *0 
00001120 
00001130 
00001140 
00001150 
00001 IflO 
00001170 
00001180 
0000 1 1 90 
00001200 
00001210 
00001220 
00001230 
00001240 
00001350 
00001260 

JC0127Q 

JC01280 

0000 1 39o 
00001300 
00001310 
00001329 
00001330 
00001340 
00001359 

00001360 
00001370 
00001380 
C 000 1 390 
OOOOI4OO 

00001410 
00001420 
00001430 
00001440 
0000145Q 
OOOOI46O 
00001470 
00001480 
0000 1490 
00001500 
00001510 


2960T  01  10-06-75  14,832 


C 1 1 ■ C03(JPl/CN3\  _ 

eii  ■ sik(«/ch3T 

C14  - 1,/<C7-1'.) 

C 15  ■ 1./(c9-r.) 

C16  ■ 1./(Cl1-1.T 
C A NSC  ■ 2 , 442807^4 
CMSBC  . 2.2548279  __ 

Bo  TO  gS 
10  II«II*1 

C 17  ■ C4*SIN ( AL ) 

C 18  ■ C5*COS ( Al ) 

CI9  - c6*cOS(AL) 

•Hi  - c2r2^tla.rc19 
IH2  ■ C2-C17-C19 
>H3  ■ C2-C17+C19 
»Hu  - Cl 

«N5  ■ -C2*C17*C19 
RH6  ■ - C19 
■H7  ■ -Cl 
• H8  ■ C2-C'l7 
»H9  ■ -RH8 
*H10  » C19 
RHB  ■ Cl  ♦ C2-C17 

CSRH1  = COS ( RH  1 ) 

SNRH1  * SJN(RHI) 

CSRH2  = COS ( RH  2 ) 

SNRH2  = SIN { PH  2 J 
CSBH  3 * COS ( PK  3 ) 

SNPH3  = SIN ( RH3 ) 

CSRH4  « COS(RHU) 

5NRH4  - SIN(RHU) 

CSRHS  * COS ( RH5 ) 

SNRHS  X SIN ( RH 5 ) 

CSRH6  » COS(RHS) 

5NRH6  - SIN ( RK6 ) 

CSRH7  a COS ( RH7  ) 

SNRH7  a SIN ( RH7 ) 
fcSRH«  ■ COS ( RH8  ) 

SNRH®  « SIN ( RH8 ) 

CSRH9  • COS ( PH9  5 
SNRH9  « SIN(F.Hg) 

CSRH10  - COS(F.HVJ) 

SNRH 1 0 * SlN(RHIO) 

EJR1  • CMPLX(CSRHl.SNRHI) 
EJR2  « CHPLXfCSRH2.SNRM25 
t JR3  ■ CNPLX(CSRH3.SNRH3) 
E JR  4 ■ CMPLX(CSHH4,SNRH4) 
EJR5  * CMPLX(CSRH5.SNRH5) 
EJR6  ■ CMPLX(CSRH8,SN3H6) 
*JR7  a CKPLX fCS«H7,SNHH7) 
EJR8  a CMPlX (CSRH8 . SNRHy ) 
EJRg  ■ C«Pl.X(CSRHg.SNRHq) 


0000 1 52Q 
00001530 
0000 1540 
00001550 
00001560 
00001570 
00001580 
000015g0 
00001600 
00001610 
00001620 
0000 163Q 
0000 1 64Q 
00001650 
00001660 
00001670 
00001680 
00001690 
00001700 
OOO0I7IO 
00001720 
OOOOI73O 
OOOOI74O 
00001750 
00001760 
0000177Q 
00001780 
00001790 
ooooi8oo 
00001010 
0000 1 82Q 
00001830 
ooooi04o 
00001050 
00001060 
C0001870 
000018*0 
00001890 
00001900 
00001910 
00001920 
00001930 
00001949 
00001950 
0000 1 960 
OOOOI970 
OOOOI98O 
OOOOI99O 
00002000 
00002010 
00002020 
00002030 
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296QT  0 1 10-06-75  1b. 632 


IjRlO  ■ CHPI,X(CSrH10.SNrH 

tSlHB'^COsTfiRB) 

SMRHB  ■ SZN(RHb) 

fejBB  ■ C"PtXf CSRMb.5KRHB) 

f70  ■ SQBI(c1q»*5) 

F UL'.  n;  X)  GO  TO  SO 


10) 


70.  Og.  cUSrc)  80  TO  60 


IT 


T 

(»!’.  BO’,  el*  60  TO  41 
SNXOX  - SjN ( r 1 p ) Vr 1 g 

C60  ■ -S0RT(A/7cN*sIn(AI,)  ) )*C|(8(2,*H2)*SNXOX 
C6i  ■ (c10/C»2i*BOFT(A/'(cK*SlB[Al)  ))*C15 
C«  ■ Lcl2/C,,3lU0|IU^C)l*|l»'i4li}l^C^ 

IhSrV  . Cf0*EJ»B-C?1*EJ»2-C*’*EJ«J 
tHSBH  > c60*eJBB*c61*ejr2;c62*ejB3 
C63  • cOS( (2.*1Pt-X-Al) )/cN1) 

C64  • 1./(c^*C®3J 

■S15V  . (C8/fC3*CN1) ) * ( C6u_C 14 ) 

IS ISM  ■ K8/tC3*ft)Mi)MC6j}*C14) 

IF  ( rL.  it:  C»i5f  80  TO  62 
fi66  ■ 

£67  ■ 

C68  - 
Isssv 
IfSSM 
GO  TO 


bi 


cOSJi-Fl-^a^Ail/cHJi 
1,/(c11»C«) 
9QBT(A/(CK*SXE(Al))i 
■ <C12/CN3T*C68»(C67-C16J 
(cl2/eB3T*c68»(c67»cU> 


43 


42  Isssv  - 0. 

IS5SH  ■ 0. 

43  OOHTINUI 

tv  - ihsbv**sisv*ejri+rsSsv*ejrs 
EM  B RH3BH*RS1SHtEJI1»RSSsWEJR5 
00  TO  50 

60  If  (|l'.  OT'.  CRll!  GO  TO  6 * 

020  ■ COS((2'.MFi-X-*in>c»1> 

C21  ■ 1,/(C7-C20T 

isisv  b (c8/<c3*emi )*(c2i-ci4) 

• Siy_B  JC8/^C3*ft)M))*(C2J^Clb)_ 
So  TO  Tf 

61  ISISV  b 0, 

IS  ISM  B 0. 

62  CONTINUE 

IF  (C17.  LE , CaNSC ) GO  TO  70 
101  C23  ■ C03(  (2.««?t-U)  )/C*»2) 

C2b  ■ i'./(C9-c53T 
C25  ■ SORT(A/(CK#SIN(AU  ) 1 
•S2SV  b tClO/C»2T*C25*(C24-Cl5i 
«S2SH  - (clC/cN2»*c2S*(c24*C15> 
e26  - cost  l3‘.*FIi2.*xU/C»3) 

C27  b 1 ,/ ( c 1 1-C26 ) 

IS3SV  - lti2/CN3T*c25*tc27-c16J 
RS3SH  b (C12/CN3?*C2S*(C27*C16) 
XFUl.  it.  CALS)  r.0  TO  67 


0000204Q 
00002050 
00002060 
00002070 
C00020.0 
000020)0 
00002100 
00002110 
00002120 
00002130 
00002140 
00002150 
00002160 
00002170 
00002 180 
000021o0 
OOOO220O 
00002210 
00002220 
00002230 
00002240 
00002250 
00002260 
00002270 
C000228Q 
00002299 
00002300 
00002310 
00002320 
00002330 

00002340 

00002350 
00002360 
0000237Q 
000023«0 
00002390 
00002400 
000024  IQ 
00002420 
00002430 
00002440 

00002450 

00002460 

00002470 

00002480 

00002490 

00002500 

00002510 

00002520 

00002530 

00002540 

00002550 
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2960T  01  10-06-75 
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C29  ■ COS(  (-PI4-2'.*Ai)/CM3J 

CJO  - 1./f£T*-c25) 

»S5SV  ■ (C12/CN3i*C25*(C30-C161 
•S5SH  » (Cl2/CN3f*C25«(C3o^C16) 

SO  TO  6g 
6 7 PS5SV  - 0. 

RS5SH  - 0. 

6e  CONTINUE 

EV  * »S1SV*ejRH>»S23V*ejR2*RS3SV*eJH3,*,rS55V*EJR5 
ZH  * RS1SH*EJR1*iS2SN*EjR2*RS3SH*EJR3+RS5SH*EjR5 
SO  TO  50 

70  If  Ul'.  IT.  C1*  00  TO  101 
CBXOX  « 0,5 

ir  Ui.  eg'  pi>  go  to  7 i 
order  ■ i, 

call  besscoroer,  ci7.  bs) 

C32  ■ BS 
CBXOX  b C32/C17 

71  CONTINUE 

C33  ■ (c12/CN3**SQRT(a/cK) 

CCAUS2  * C**A 

ir  (fci'.  to',  pi*  go  to  72 

CCfcUSI  « 1 ,/SIH ( aL) 

CCaUS  B cCaus1 
IT  (CCJIVS2-CCAW5  1 ) 72,72.73 

72  CCaUS  ■ CC»US2 

73  CONTINUE 

C34  ■ SORT ( CCAUS  5 

C35  « C<»*A*sc,Rt(RH 

C51  - (C10/CR2|*SQRT(a/CK) 

C52  • C0S!{2.*(PT-aI) )/C"2> 

C53  « 1,/(C9-C52T 
RS2SV  ■ C51*C34*?C53-C15) 

RS2SH  - C5l*C34*f CS3+C15) 

ZV  ■ C35*CBX0X*EJR7-C33*C34*C16«EJR10*(EJR8*EJR9)4-RS2SV*EJR2 
*H  ■ c35*cBX0X*EJR7*c33*c34*c16*EJR10*(EJR8*BJR9>+RS2sH*eJR2 
GO  TO  50 

80  C36  » 2.*A*SURT(pI)*C10/CN2 
C37  b 1./(cS-C0Sf  2.*ri/cV2n 
C3fl  ■ 2,*SIN(  2'.*PI/C1’2)*TaN(  AL) 

ORDER  ■ 0. 

call  besscorder,  ci7.  nsi 

C39  ■ BS 
ORDER  * 1, 

call  bess(order,  ci7.  bsj 
C40  ■ ns 
order  * 2, 

call  bessiordkr,  ci7.  'jsi 

C41  ■ BS 

»NSV  « (C36*(c37*c3g-c30*Ic37**21*c4O‘EJR4*C^5*C1,1))*EJR6 
RRSH  ■ <c36Mc37*c19-c13*?c37»S2J*C‘*0*EJR|*-C15*c^1))*EJR6 
C 4 2 * cost  (2.*<PX-r-ALn/c*1)  ' 


00002560 

00002570 

00002580 

0000259Q 

00002600 

00002610 

00002620 

00002630 

00002640 

00002650 

00002660 

00002670 

00002680 

00002690 

0000270Q 

OOOO27IO 

00002720 

00002730 

OOOO27UO 

C000275Q 

00002760 

0000277Q 

00002780 

00002790 

0000280Q 

00002810 

00002820 

00002830 

00002840 

00002850 

00002860 

00002870 

00002860 

00002890 

OOOO29OO 

00002910 

00002920 

00002930 

00002940 

00002g50 

00002960 

00002970 

00002980 

OOO0299O 

00003000 

00003010 

00003020 

00003030 

00003040 

00003050 

”>0003060 

00003070 
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C93  ■ 1./(C7-C92t 

isisv  . rei7?emin>7ncij=eT5i 

IS  1SH  ■ (C8/(CI*eKin*(CUJ+C14) 

CuS  . |C12/C»3»*1QR?U/CKT 

00  TO  81 

Ut) : 

SI)  81.81.82 

81  ec*u>~”  CC*U62 

82  cOKTxNUg 

fc96  ■ S0ST(CC*WSt 

£98  ■ rO3((3.*0T*2.6>l)/eS3) 

c<*9  ■ i.^(ci^*c5|) 

8S3SV  ■ C9S»C96*TC99-C16) 

IS3SH  • C95*C96*TC99*C161 

SV  • »NSV*BS1SV*fJRl*RS33V*EJS3 

ZH  ■ R»SR*RS1S»*tjF^RS3SH*£jR3 

00  TO  50  

50  lvc  • co»jgUvv 

SHC  ■ cOHjO ( SH I 
SSV  » ZV* IVC 
8SH  ■ ZH*ZHC 

Isstsv  ■ RSxL(SSlr) 

llUSK  ■ RsU(BSjl) 

litsvi  ■ htsLsv»fiEtci 
•*isv2  ■ io.*aio<ji  (Retsvi) 

Irish i ■ Re*lsh*IeLc1 

lUSHJ  »10f*AtOO1  MIElSKlf 
•HT1*mH2(AlKRSTZV».REAtfzy)  I 
CALL  UPDXT<lHV1,lHV2.PI.THET*V) 

ThhI  - ATTiyntTKl  oT2hT7TeHIT  ZHTf 

CaIX.  updatUnhi.Ihh2.pz;the?aN) 

al  - itd#al 

VlZTE  ( 6.2002 ) ill  RRLSV2.  R|iSif2.  THETa?.  ?HETaH 
ZrtlEtSV2.0f7C  .1  *ntSV2  i AHZl'lTftstS?2#00() 
XPtRElSV2.il.  '.JIBISV2  ■ AM  AT  1 4 IrLSV2»*70  * ) 

— rmirsireTsr;  ^TriY!  fH2~s“  mwTTiiiiHa;  oo.  i 

XP(RELSM2.1T.  V.)8EISH2  • a”A* iJ IE13H2.-70. ) 

fYl(ZX)  ■ IXISV2 

?T2 ( ZZ ) ■ REISH2 

TT3(IX)  ■ THETAV 

TXIMZI)  » THETAH 

XXtJT)  5~aI 

Al  » DTI* Al 
AXVDXaZt 

al*aZsdx*deial  *AlO 
Zf  (Al-AlMAXT  MJf/,200 

2oo  call  pitodt 

So  16  1 ' “ " ‘ 

95  COMTZSUE 

HRZTE46.2001) 


CCA0S2  ■ C**A 
ZP(aI.  EO.  o.) 

CciUSI  ■ 1./SIH 

CCAUS  Tcciw- 
XP  4ccA«S2-cc*H 


00003080 

• - 00003090 

0000310Q 
00003110 
000031 20 
00003130 
000031(10 

0000315Q 

0000316Q 

00003170 

0000318Q 

0000319Q 

00003200 

. - 0000321o 

00003220 

00003230 

00003290 

00003250 

0000326Q 

00003270 

0000328Q 

00003290 

0000330Q 

00003310 

0000332Q 

00003330 

0000339Q 

00003330 

00003360 

0000337Q 

00003380 

0000339Q 

00003900 

00003910 

000Q392Q 

0000393Q 

00003990 

— - - 00003950 

00003960 

00003970 

00003960 

00003990 

00003300 

OQ00351Q 

00003520 

0000353Q 

00003su0 

00003550 

00003560 

' ' 0000337Q 

000035«Q 

00003590 


IV-68 


2960T  01  10-06-75  1U.932 


JH****J?  Oj  00003600 

IHBTiH  ■ o;  00003610 

SO  TO  10  00003620 

999  COMTIJIUt  00003630 

*XO*  000036U0 

»*D  00003650 


Sample  Input  of  Hie  CONE -CYLINDER  Program  aa  Output 


IV -70 


INPUTS  - CONE  CYLINDER 


RADIUS  OP  CYLINDER  IN  INCHES  (A)  ■ 3,1600000 

h al?  height  of  cone  in  inches  (hij  • 5.89isooo 

half  height  of  CYLINDER  in  INCHES  ( H 2 ) - 5,2569000 

WAVE  LENGTH  IN  INCHES  (CLAM)  a 1.9754000 

INCREMENT  IN  ASPECT  ANgLE  IN  DEGREES  (DELAL)  a 0,1000000 


MINIMUM 

aspect 

ANGLE 

IN 

degrees 

( almin ) • 

0. 

MAXIMUM 

aspect 

ANGLE 

In 

DEGREES 

(ALMAX)  * 

180.0000000 

INITIAL 

ASPECT 

ANGLE 

In 

degrees 

(AL)  * 

0. 

IV- 71 


kl  SV(DBSM)  SH{DBSM)  THETAV  THETAH 


C7  -27TOT 

~T~ 

r.m 

■ O'.  13  8 

0.10-2,95* 

01-2,27* 

01 

1.094 

O'.  112 

0.20*2. 95E 

01-2.29# 

u'i 

1.094 

0.084 

0 . 30*2 . 95E 

01-2.30# 

oi 

1.094 

0.057 

0 . 1*0-2 . 951 

01-2, 3li 

v'l 

1.095 

O'.  028 

0.50-2.95# 

01-2, 33i 

01 

1.095 

-0.001 

0.«0-2.45# 

01-2,341 

TT  ' 

~T.095“ 

-0.032 

0.70-2.95* 

01-2,36# 

01 

1.095 

-0.063 

0.10-2,96* 

01-2,37# 

i 

1.096 

-0.096 

0.90-2,96* 

01-2,39# 

01 

1,096 

-o;i29 

1.00-2,96* 

01-2.91* 

1 

1.097 

-0. 164 

1. <0-2.96* 

01-2.42# 

-01 

1.098 

-0.200 

1.5o-2.97* 

01-2.94* 

n1 

1.098 

-07237 

1,30*2,978 

01-2.46# 

01 

1.099 

-0.276 

1. “0-2. 97* 

01-2.48* 

i 

1.  ioo 

*0.316 

1,50-2,98* 

01-2,49* 

01 

1.101 

-0,358 

1.50-2,98* 

01-2.51* 

. i 

1.  101 

-O’.  401 

1.70-2.99* 

01-2.53# 

01 

1.102 

1.10-2,99* 

01-2,55* 

i 

1.103 

-0,493 

1,90*3,00* 

01-2,57# 

01 

1,104 

-0.542 

2.00-3,00* 

01-2.58# 

,1 

1,106 

-0.592 

2.10-3,01* 

01-2.60# 

01 

1,107 

-0,644 

2.20-3,02* 

01-2,61# 

..’1 

1.108 

-0.698 

2.30-3,02* 

01-2.63* 

.11.. 

1.109 

2.90-3.03* 

01-2,64* 

1 

1.111 

-0.811 

2.50-3,09* 

01-2.65* 

01 

1.112 

-0,870 

2.60-3.09* 

01-2.66* 

1 

1.114 

-0.930 

2.70-3,05* 

01-2,67# 

01 

1.115 

-0,991 

2.80-3.06* 

01-2,68* 

1 

1.117 

-1 ,053 

?,?lr3,Q7? 

ll-2xJ6fi£  Ql 

1*118 

-1,115 

3.00-3.08* 

01-2.68# 

1 

1.120 

- 1 , 178 

3 . 10-3 ,09* 

01-2.68# 

01 

1.122 

-1.241 

3.20-3,10* 

01-2.68* 

1 

1.124 

7i,3ou 

3.30-3,11* 

01-2,68# 

01 

1.126 

-1,366 

3.90-3,12* 

01-2.67* 

1 

1.128 

-1 ,428 

3,50-3.13* 

01-2,67* 

01 

1.130 

-1.488 

3.50-3,19* 

01-2,66# 

■ 1 

1'.  132 

il',548 

3.70-3.15* 

01-2.65# 

01 

1.134 

-1 .606 

3.80-3.16* 

01-2,63* 

. 1 

1.136 

-1.662 

3.90-3.17* 

01-2,62* 

01 

1.138 

-1.717 

9.00-3,18* 

01-2,61* 

jl 

1.141 

-1.770 

9.10-3.20* 

01-2,59* 

01 

1.143 

-1.822 

9.20-3, 2 IE 

01-2,58* 

1.146 

-1,872 

9.30-3.22* 

01-2,57# 

01 

1. 149 

-1.920 

9.90-3.29* 

'1-2,55* 

1 

1.151 

-1,966 

9.50-3.25* 

01-2.53# 

01 

1.153 

-2.011 

9.60-3.26* 

01-2.52# 

1 

1.156 

-2.054 

9.70-3,28* 

01-2.51* 

01 

1.159 

-2.096 

9.80-3.29* 

01-2.49# 

1 

1.162 

-2.136 

9.90-3.31* 

01-2.98* 

01 

1.165 

-2.175 

5.00-3,33* 

01-2.46* 

1 

1.168 

-2.213 

5.10-3,39* 

01-2.45# 

01 

1.171 

-2.249 

5.20-3,36* 

01-2,44* 

V 1 

1.174 

-2.285 

5,30-3,38* 

01-2,42* 

01 

1.177 

-2,319 

5.90-3,39* 

01-2.41* 

1 

1.181 

-2.353 

5.50-3,91* 

01-2,90* 

01 

1.184 

-2.385 

5.60-3,93* 

*1-2.39* 

. 1 

1.107 

-2.417  rv_73 

11. *0*6.131 

01-3.141 

1 

-5.572 

11.70nS.l8I 

01-3.10* 

01 

wtltm 

•*5.630 

i ^7fo*5.HE" 

01-3.071 

,1 

-1.094 

-57516” 

11.80-5.74E 

01-3. 03* 

01 

-1’.  140 

-5.734 

l2.0O-5.64E 

0 1-3,008 

:1 

-1.174 

^5'.  78  0 

12.10-5.55E 

01-2. 97* 

01 

- 1 198 

-5.823 

12.20-5'.47E 

01-2.94* 

- 1 • 2 1 7 

-5.864 

12.30-5.40E 

01-2. 91E 

oi_ 

-1.231 

-5.903 

ir.irj^r.nnr 

01-2.68* 

0 1 

-T.  m ^57919  ~ 

12.50-5.28E 

01-2.66* 

01 

-1.250 

,5'.  974 

1 2 , 60-5 . 23E 

01-2,63* 

• 1 

-1.256 

;6'.007 

12.70-5.  1BE 

01-2.61* 

01 

-1.261 

-6.039 

12.80-5, 13E 

01-2,80* 

-1.264 

-6l 07  1 

12.90-5.09E 

01-2,78* 

01 

-1.266 

-6'.  101 

T3700-5.05E 

01-2.76* 

1 

-1.257 

13.10-5.02E 

01-2.75* 

01 

-1.268 

-6  • 160 

13.20-4, 9«E 

01-2.74* 

i 

-1.268 

-6’.  188 

13.30-4.95E 

01-2,73* 

01 

-1.268 

-6',  216 

13.40-4.92E 

01-2.72* 

•;1 

-1.268 

-6.244 

13. 50-4. 90S 

01-2.71* 

01 

-1.267 

-61272 

137*0-4, 87e 

01-2. 7lf 

~"T 

-1.266 

-6.300  " 

13.70-4.85E 

01-2,70* 

01 

-1.265 

-6.328 

13.80-4.82E 

^1-2, 70E 

1 

-1.264 

-6.356 

13.90-4.80E 

01-2,70* 

01 

-1.263 

-6 ,385 

14.00-4.78E 

01-2,70* 

. 1 

-1.262 

-6.413 

if*.iQ?4j77l 

21 

rl^»26 1 

-6,443 

14.20-4.75E 

01-2. 70S 

1 

-1.260 

-6.473 

14.30-4.73E 

01-2.71* 

01 

-1.259 

-6.503 

14.40-4.72E 

01-2.71* 

■.  1 

-1.258 

?6l534 

14.S0-4.70E 

01-2.72* 

01 

-1.258 

-6.566 

14.60-4.69E 

01-2.73* 

. 1 

-1.257 

-6'.  599 

14.70-4.68E 

01-2. 74* 

01 

-1.256 

-6.634 

l47ro-i»;67E 

01-2.758 

01 

-1.256 

-6l  669 

14.90-4.66E 

01-2.76* 

01 

-1.256 

-6.706 

15.00-4.65E 

01-2. 78* 

1 

-1.256 

-6.744 

15. 10-5.49E 

01-2.82* 

01 

-2.193 

-71054 

15.20-5, 45E 

01-2,82* 

' 1 

-2.191 

-7.102 

15.30-5.41E 

01-2, 8iE 

01 

-2’.  189 

-71 150 

l5.40-5.37E 

r'  1-2. 8 0* 

-2.187 

-7 , 197 

15.50-5.34E 

01-2.80* 

01 

-2.185 

-7.244 

15.60-5.30E 

01-2. 79E 

1 

-2.183 

-7,29  1 

l5.7o-5.27E 

01-2. 79E 

01 

-2.181 

-7.338 

15.80-5, 24E 

01-2, 78E 

..1 

-2.180 

-7,385 

15.90-5.21E 

01-2. 77E 

01 

-2.178 

-7.431 

16.0O-5'.  1 8E 

■•'1-2.77* 

i 

-2.  l77 

-7.477 

16.10-5, 16E 

01-2. 76E 

01 

-2.177 

-7.523 

16,20-5.  13E 

01-2. 76B 

1 

-2,  176 

-71569 

16.30-5. 1 1E 

01-2.75* 

01 

-2.176 

-7.615 

l6.4o-5.09E 

01-2.75* 

1 

-2. 176 

-7. £60 

16.50-5.07E 

01-2. 74E 

01 

-2.177 

-7.705 

l6.6o-5.05E 

01-2.74* 

i 

-2.177 

-71750 

16.70-5.03E 

Cl-2.73* 

01 

-2.178 

-71795 

16.80-5.02E 

01-2,73* 

1 

-2.180 

-7,840 

16.90-5.00E 

01-2.72 * 

01 

-2.182 

-7.884 

17.00-4.99E 

01-2.72* 

V 1 

-2. 184 

-7.929 

17.10-4.97E 

01-2.71* 

01 

-2.187 

-71973 

i7.2o-4',96e 

01-2/71* 

i 

-2.190 

-8 . 0 17 

17.30-4.95E 

01-2.7QE 

01 

-2.193 

-0. 06  1 

17.4Q-4.94E 

0 1-2, 7 J* 

■wl 

-2.  198 

«»0l  105  IV 

17. 50-4,94* 

01-2.70E 

0^ 

-2.202 

•87 149 

i’.i0-4;*3* 

01-2.69* 

.1 

_-2- 208 

•MJJ  

0T^r.«9f  OT 

-2  ■ sir 

17.»0*4,92E 

01-2.691 

.1 

-2.220 

•8.279 

17.90-4, 921 

01-2.68* 

oi 

-2.227 

48.323 

1®. 00-4, 921 

01-2.68* 

ul 

-2.235 

48.366 

18. 10-4.92* 

oi-a. 6ei 

04 

-2.244 

•8.409 

'8. 20-4,921 

01-2.68* 

- 1 

-2.254 

•8.452 

iB. 30-4, 13* 

0 1*2. 671 

t r 

-2’.  38F 

*87i*9S~ 

18.40-4,931 

01-2.67* 

o 1 

-2.277 

41,539 

18.90^4,941 

01-2.671 

04 

-2,290 

4 8.582 

18.60-4.94E 

01-2.67* 

•..1 

-2.304 

48.625 

l8.7o-4,45E 

01-2.67* 

04 

-2.320 

487667 

1 8 » Bp-4y  96* 

01-2.87* 

cl 

_!J.337 

•8,710 

iTT9o-4Tl^* 

01-2.671 

Tt 

-2.J56 

•8.753 

19.00-4.99Z 

01-2.67* 

ol 

-2.376 

•8.796 

l9.4o-S.OOE 

01-2.66* 

01 

-2.399 

•8.839 

19. 2o-5. 02* 

01-2.66* 

01 

-2,423 

48,882 

19.30-5, 03* 

01-2.66* 

01 

-2.450 

48.925 

19. 40-5, 05E  01-2.67* 

ol 

-2,479 

•8.968 

19.90-5.07E 

01-2.67* 

01 

-r.rro 

•97011 

l9.lo-5.08E 

01-2.67* 

ol 

-2.545 

49.054 

19.70-5'.  10E 

01-2,67* 

ol 

-2.582 

497097 

l9.»o-5'.12E 

01-2.67* 

ol 

-2.623 

•9.140 

19.90-5',  148 

01-2.67* 

ol 

-2.666 

49'.  183 

20.00-5, 16E 

01-2,67* 

ol 

-2.713 

•9.226 

' 207T04§7T7* 

01-2,67*  01 

-27764 

•97269 

20.20-5, 19Z 

01-2.68* 

ol 

-2.817 

•9.312 

20. 30-5,208 

01-2.68* 

01 

-2.874 

49.356 

20.60-5,218 

01-2.68* 

ol 

-2,933 

•9,399 

20. §0-5.22* 

01-2,68* 

oi 

-2,995 

497442 

20.6o-Sj22C 

01-2.69* 

jl 

-3.058 

-97486 

30.7045732* 

oi-r69r 

OT" 

•3. 1 21 

-9.529 

20. 10-5.22* 

01-2.69* 

wl 

-3.187 

•9,573 

20.90-5.22* 

01-2.70* 

91 

-3.252 

49'.  6 16 

21.00-5,21* 

01-2,70* 

,1 

-3.316 

-9.660 

21.40-5’,19E 

01-2.70* 

01 

-3.378 

497704 

21.20-5,18* 

01-2,71* 

1 

-3.437 

-9.747 

2i.3o=5,i«r  oi-r.7ii 

03 

“-3 '.594 

=9.791 

21.60-5  , mz 

01-2.72* 

1 

-3.548 

-9.835 

21. §0-5.128 

01-2.72* 

01 

-3.598 

-9'.  879 

21.60-5, 10* 

01-2.73* 

)1 

-3.645 

-9.923 

21.7o-5.07E 

01-2.74* 

01 

-3.689 

-9.968 

21.60-5.05E 

01-2,74* 

. 1 

-3,729 

•10.012 

"'21.90i5;03*  TW.75i  T! 

"-J7755 

•707058  

22.00-5,008 

01-2.75* 

,1 

-3.800 

-IO.101 

22.10-4.98E 

01-2.76* 

01 

-3.831 

-10.146 

22.2o-4.96E 

01-2,77* 

1 

-3.859 

-10.191 

22.30-4.94E 

01-2,78* 

01 

-3.834 

4107236 

22.40-a.92E 

01-2.79* 

'1 

-3.907 

•10.281 

22.50-4-.90E 

01-2779* 

or 

-37927 

-107326 

22.6o-4.89E 

01-2.80* 

.1 

-3.946 

-10.372 

22. 70-4.67* 

01-2.61* 

01 

-3.962 

4707417 

22.B0-U.66E 

01-2.82* 

•.  1 

-3,977 

•10.463 

22.90-4,85* 

01-2.83* 

oi 

-3.990 

•10.510 

23. 30-4.84E 

01-2.84* 

ol 

-4.001 

•10*556 

23.1o-U.IUE' 

■0T-r.i5i 

oT 

~-57oTl 

~iT 0.603 

/- .20-U.83E 

01-2,87* 

; 1 

-4.019 

•i0*650 

23.30-4.63E 

01-2. 68E 

01 

-4.026 

•io.698  rv.76 

23.U0-U.83E 

01-2. 89E 

.1 

-4.031 

•10.746 

23.30-4.83E 

01-2.906 

01 

-4.036 

-10.794 

"'JTTfl-U'.n* 

71 

-4. 039 

• 10.T5I 

23.T0-U.8UE 

01-2.936 

01 

-4.04  1 

•10. 893 

23.l0-U.8SE 

01-2,946 

• i 

-4,(j4  1 

-10.943 

23.S0-U.86E 

01-2.966 

01 

-4.041 

-10.993 

2U.0o-u,8?E 

01-2.966 

i 

-4.040 

—11,045 

2U.10-U.89E 

01-2.996 

01 

-4.037 

-11,097 

TU.20-u’,#ie 

01-3.016 

oT 

-4^.033 

-11,156 

2U.30-U.83E 

01-3.026 

j 1 

-4.028 

•<1.204 

2U.U0-tt.85E 

01-3, oui 

oi 

-4.021 

-1 1.258 

2U.l0-U.88E 

01-3,066 

i 

-4.013 

-<1,314 

2U.60-S’.01E 

01-3. 08E 

01 

-4,003 

-11.371 

2U.7o-5.OUE 

01-3, 106 

i 

-3.992 

-11.429 

2U.l0-5.08E 

01-3. 12F 

01 

-3.978 

-11.481 

2U.90-5.11E 

C 1-3, 146 

. 1 

-3.963 

-11,549 

23.80-5'.  16B 

01-3,156 

0< 

-3.945 

- i i 6 1 1 

25.10-5.20E 

01-3,176 

. 1 

-3.924 

-11,675 

25.20-5.26E 

01-3.196 

01 

-3,900 

•<1,740 

25.30-5.3lE 

01-3.216 

1 

-3.872 

•11,806 

200-5. J7E 

01-3.231 

01 

-3.839 

-Til  875 

25.5o-5,U3E 

01-3.256 

1 

-3.800 

*<1.945 

25.f0-5.50E 

01-3.276 

01 

-3.755 

-<2.016 

25.7Q-5;57E 

01-3,296 

01 

-3.701 

-<2.090 

23.l0-5.f5E 

01-3,316 

vl 

-3.638 

-12'.  166 

25,9q-5^72E  Q1-3.32E  01 

riiS$2 

•12*243 

15.0O-5.8OE  01-3. 3UE  1 

-3.472 

-12.322 

26.l0-5.88E 

01-3.358 

01 

-3.367 

-<2.402 

26.20-5.9UE 

01-3,366 

1 

-3.2U6 

-12.484 

26.30-6.00E 

01-3, 37E 
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The  Horizontal  Polarization  for  the  Radar  Cross  Section  (SH)  in  d|sm. 
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D. 


CYLINDER  Program 


1.  Introduction 

The  CYLINDER  program  was  originally  developed  under 
Contract  AF30  (602)-67-C-0074  for  RADC  by  Cornell  Aeronautical  Labora- 
tory, Inc.  , under  subcontract  to  the  Fort  Worth  Division  of  General  Dy- 
namics. Related  information  pertaining  to  this  program  can  be  found  in 
the  program  GDT01  documentation  produced  by  General  Dynamics.  The 
theory  is  described  in  RADC-TR -68-340,  "Investigation  of  Scattering 
Principles  - Volume  III  - Analytical  Investigation",  May  1969* 

2.  Abstract 

Based  on  the  Geometrical  Diffraction  Theory  (GDT),  the 
CYLINDER  program  computes  the  polarization  radar  cross  sections  in 
dBsm  and  the  scattering  phases  in  increments  of  the  aspect  angle  for  a 
right -circular  cylinder. 

3.  Computer  Program  Operating  Environment 

a.  Computer 
HIS-6000 

b.  Source  Language 
FORTRAN  Y under  GCOS. 

c.  Memory  Requirement 
22K  words 

d.  Typical  Processing  Time  Required 
0.0050  hours  (18  seconds) 

e.  Peripheral  Equipment  Requirement 
Four  disc  files  (file  codes:  07,08,09,  10) 
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Subroutines  Used 


Subroutines  obtained  from  SXSA  Program  File: 

UPDAT 

BESS 

GAM 

PLTGDT 

4.  Inputs 

The  inputs  which  are  needed  for  the  executing  of  the  CYLINDER 
program  are  as  follows: 

A - Radius  of  cylinder  (inches) 

H - Half  height  of  cylinder  (inches) 

CLAM  - Wave  Length  (inches) 

DELAL  - Increment  of  aspect  angle  (degrees) 

ALMEN  - Minimum  aspect  angle  (degrees) 

ALMAX  - Maximum  aspect  angle  (degrees) 

AL  - Initial  aspect  angle  (degrees) 

BET  - Azimuth  bistatic  angle  (degrees) 

Input  Format 

The  above  inputs  are  entered  into  the  program  through 
NAMELIST  format.  The  mnemonic  variable  INPUT  is  used  as  the 
NAMELIST  name.  The  first  input  card  must  contain  a $ followed  by 
INPUT  (i.  e. , $INPUT).  After  the  $INPUT  the  data  items  must  follow  in 
the  format  of: 

variable  1 name  = (value), 
variable  2 name  = (value), 

• 

variable  n name  = (value)  $ 

Each  data  item  mast  be  separated  by  commas.  Following  the 
last  input  data  item  a $ must  be  present.  Refer  to  the  sample  job  stream. 
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By  changing  the  above  inputs  the  user  can: 

o vary  the  radar  frequency  and  polarization  of  the  transmitting 
and  receiving  antennas, 

o vary  the  angle  at  which  the  target  is  viewed  (BISTATIC), 

o vary  the  size  of  the  cylinder. 

5.  Output 

Output  from  the  CYLINDER  program  first  contains  a listing  of 
the  input  data.  Secondly,  the  output  contains  a list  of  the  aspect  angle  (AL) 
at  each  increment  from  the  input  minimum  to  input  maximum  versus  the 
following  parameters: 

SV  - the  vertical  polarization  for  the  radar  cross  section  in 
dBsm. 

SH  - the  horizontal  polarization  for  the  radar  cross  section  in 
dBsm. 

THETAV  - scattered  phase  in  radians  of  the  vertical  polariza- 
tion. 

THETAH  - scattered  phase  in  radians  of  the  horizontal  polari- 
zation. 

Through  a call  to  the  subroutine  PLTGDT  four  data  files  are 
built.  Each  file  contains  the  data  of  one  of  the  above  listed  outputs.  That 
is, 

file  07  contains  the  data  of  SV, 

file  08  contains  the  data  of  SH, 

file  09  contains  the  data  of  THETAV,  and 

file  10  contains  the  data  of  THETAH. 

The  aspect  angle  (AL)  is  not  recorded  on  a separate  data  file. 
The  aspect  angle  can  be  easily  computed  for  the  above  data  by  using  the 
minimum  aspect  angle  and  the  increment  value  of  the  aspect  angle  both  of 
which  are  recorded  in  each  of  the  above  data  files.  That  is,  at  any  Nth 
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increment  the  aspect  angle  ia  equal  to  the  minimum  aspect  angle  plus  N 
times  the  increment  value. 
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fCYLINDEI 


Figure  IV-3  Logic  Flow  Diagram  for  CYLINDER  Program  (Page  1 of  2) 


IV-113 


Computes  cross^ 
section  and  | 
phase  for  sel- 
ected aspect  I 
angle  j 


Figure  IV-114  Logic  Flow  Diagram  for  CYLINDER  Program  (Page  2 of  2) 
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S I DENT 

S USERID 

S L0WL0AD 

S 0PTI0N 

S SELECT 

S SELECT 

% EXECUTE 

$ LIMITS 

S PRMFL 

S PRMFL 

S PRMFL 

$ PRMFL 

S DATA 

SINPUT 
A-7.868# 
H*22. 16# 
CLAM-2.0056# 
DELAL-O. 1# 
ALMIN-O.O# 
ALMAX-90.0, 
AL=0. 0# 
BET-10.25  $ 

S ENDJ0B 


CLEARY# NEUFFER  #651211 04RADC 
CLEARY  STHREE 

FORTRAN 
CLEARY /0CYL 
CLEARY /0XSA 


05#  22K#  # 1 7K 

07#  V#  L#  CLEARY /ST0RE1 

08# V#  L#  CLEARY/ST0RE2 

09#  V# L#  CLEARY/ST0RE3 

1 0#  V#  L# CLEARY/ST0RE4 

05 


Sample  CYLINDER  Program  Job  Stream 
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Source  Listing  of  the  CYLINDER  Program 

\\ 


i 
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non  n ole.  on  oo o|n  n o 


S PROGRAM  CYLINDER  AZIMUTH  9I3T At ic 

e0MMON/NAM/YYl(20ot)),YY2(2''00)*YY3l200Q)»Y¥4|200U)iXX<2000),!I 

C0MMBN/VALUE/PT5,SUH\T#5imH,*7W.TLTH»BBT 

COMPLEX  F JR1.EJR2.EJRJ,EJR4,EJR9,EjR6,EJR7;EJRS*EJR9,EJR10* 

K EJHI1»H'5HA5V,  ^SHASH,RSHB!>V,HSMHEH, ZP,ZHtZVCiZHC>8SV>5SH 

NAMElIST/INPUT'A*H.CLAM,DELAL#ALMIN,ALMAX,ALiBET 
2000  rOPHATUHX,//7//*OX,  YCYLIMDEP  Anfll/TH  Bl^TATTC  - INPUTS  if, 
•/////2’X. 'RADI JS  Of  CYLINDER  IN  INCHES  (A)  ■ « 14 . 2# 
a///2*X.  'mr  HET3HT  0^  CLTNDEB INCHES  (H,  I~» *214, 7i 
•///2»k. 'Have  lenqht  in  inches  (clam,  a •,ri4.?i 
g/rf/2WMNCBETCNr  IFTA5PPCT  ANGLE  IN  DEGREES  I PEL  AL  >'  ■~~r,ri4;'7, 
•S//29X. 'MINIMUM  ASPECT  ANGLE  IN  DE0REES  ULMIN)  ■ *,rl4,7, 


a///2»X. 'HAXIMUH  ISPfCT  ANGLE  IN  DEGREES  ULMAXJ  ■ l,ri4,7, 
•///2»x» 'aspect  angle  in  oeorees  t al > a 
#///29X,fAZiMirl'-r  BistiTif  tsngle  in  degrees  (bet,  t-t, 2*4,7, 


zOOi  rORHAT»iV ,5H fU~> 0H5V(  PBSIf, ) f WSMI I 

X9M  THETAH.//L 

2002  rORH4T<ix,r7.2ii*2E$ .2. 0P2F8 ,3*2ri2 , 9 , 


INPUT  - NAMELIST  -INPUT 

I T RaOI  ’)5  0?  ~5 f lTN0E R" TI NCHES J 

M a HALF  HT.  or  CYLINDER  (INCHES) 

CL  AN  ■ ^AVETENOTN'TrNCNESr 

DiLALa  Increment  in  aspect  angle  (degrees) 

— ALMlNa  H IN ! HUH" A EJECT aNGIe"  IDEGREeS) 

AL*AX«  maximum  ASPECT  angle  tUE0REjS>_ 

AL*  AlPECT^ANGLE  iDEGREEir 
BETa  AZIMUTH  3 1 ST  AT  I C ANGLE  (DEGREES) 

1 NEAD|0S*tNPUT.SN0a«}99) 

— WITEI  38,2000)  A*H.CLAM;TIELAL,ALHIN,ALHA«,i 

THETA  ■ u. 

rnvzb  ~tr, 

RMH2  a 0, 

~ RELtl  ;T254»T3234 

Pi  • 3 • 14159263 

FTM-F  ■*T7iW. 

RTO  a lSj./PI 

BET  a RETaUTR 

HBET  a BET/2, 

BELAl  SDFLALaUn 

ALMlN  • ALMlNaOTT 


AL  • ALa'lTR 

AlO  a al 

CK  a 2 • *P I aCOS ( H3ET ) /CL AM 

Cl  * PI//. 
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I 


C2  ■ PI/4. 

C3  » 2.*PI/3. 
C4  » 2.»CK«A 
C5  ■ 2.*CK*H 
C6  ■ 2./3. 


C9  » C0SIC3) 

cio  ■ si'i;c3) 

Cll  • l./(C9-C3S<2.#BET/3, )) 

CANST  • 2.44280/54*C0S(HPET) 

CNS8C  » 7.2548279*C0S(BBET) 

CAL2  ■ HUE* 

CAL3  • C1-H0ET 
GO  TO  »5 
10  |I  • im 

C12  ■ C4.SINU.) 

Cl 3 » C5*cns<4.) 

ir  itl*  . GE  7 C1NSO  Gn  TO  20 

Cl4  s C6.CiC»S3RT(*/CK) 

CC*US2  « CK*A 

IF  <AL  . EQ  . 0.  ) GO  TO  15 
CCAUSl  * 1,/SH(AL> 

CfiAOS  • CCAUS1 

I r ( cC  AilSl-CC K J $ l ) ' i 5 .T5-.T5 

15  CCAUS  * CC AUS2 
25  CONTINUE 

Cl  5 a SQRT  (CCA J3) 

Cis  • A*o4*SORT ( 0 J ) 

Cl7  a l./(C9-C3S<C7*AL) ) 

* flTTupr  a 1 . 

CALL  BESS (ORDER*  C12.  HS) 

C18  * BS 
RH1  * -Cl 
RM2  a -Cl2*C2 

RH3  ■ -C13 ,• 

esw  ■"  no's  C Wi 
SM^Hl  * SIN(RHl) 

CSRH?  * nOS(RB2) 

SNRH?  a SlN(RH2) 

CSRhI  * 00S{Rh3) 

SNRM1  = SlM(RHS) 

EJR2  » C tPL*(C5R42.SNHH2> 

FJR3  « ^MPLX(C3RH2.-SMn-l?) 

FJR4  * C iP|_X(CSR-I3.S'JKi43> 

EJ’5  * C'PLXlCSRRJ.-SNR-n) 

C8*0*  5 -.5 

ir  txu  r-ro  -.  3;i  no  T"  35 

cbxo*  * r. i«/ci? 

35  rO'JTINUE 

RS',ASV*(rt6*CBOX»r  J^l-Cl4*Cl5*Cll*(FJR2*EJR3) ) 
R5',A^H*(C16«CR<3X»EJRi*C14*C15»Cll*<EJR2*EJR3)) 


00001520 

00001530 

00001540 

00001550 

00001560 

0000X570 

00001580 

00001590 

00001600 

00001610 
00001620 
00001530' 
00001640 
00001650 
00001660 
00001670 
00001600 
~ TJOD  01591} 
00001700 
00001710 
00001720 
00001730 
00001740 
OWOl  75q 
00001760 
00001770 
00001700 
00001790 
00001900 

oooofSio 

00001920 
00001930 
00001940 
00001350 
00001960 
00001X70 
00001980 
00001090 
00001900 
00001910 
00001920 
DC  001 930 
OOOOl 9*  0 
00001950 
00001960 
00001970 
00001900 
00001990 

00002000 

00002010 

00002020 

00002030 


IV- 119 


BS'USV^CH^ClSu  ;17-Cll ) 

RSNASH»Cl<»Cl5»(Cl7*CU) 

Jf  <aL-CaL2>  61. SI, 6? 

6i  RSmasv  * r. 

RSMaSh  » n, 

67  Ca*JTTVTT^ 

2V  * R5MASV*EJH4*RSNASV*FJP2afcJR5 
ZH  ■ RSMaSH*EJ44*RSMASM*EJPZ«EJR3 
CO  TO  40 

20  IF  (013  . LE  . CNSRC)  CO  TO  30 
Cl’*  C6*C10*SQ4T<a/<CK*SINUL>>) 

£*7~rT77<e9  -;35((':8*<frT*7.*ALMi 

C21  ■ 1 . /(C9  --OS ( f 6*2 . • Al. ) ) 

C22  • 1 . / { C9  -:35{C6*<rI"2.*AL) ) > 

RSI SV  * ri9*(C20“Cll> 

RSIS J « Cl9* ( C20*Cl 1 > 

RS?S V ■ Cl’*(C2i-Cll) 

“ r?75t  « TTivFtTTnTri) — 

IF  (AL-CAL2)  63.63.64 

63  RS2SV  * 1. 

RS?SR  * V. 

64  COMTJNUF 

RS3S9  * 019* ( C 22“C 1 1 ) 

RS3S4  « C19*(Ci2*Cli> 

IF  <At“CAL3>  66.65.65 

65  RS3SV  » j. 

RS3Sm  ■ 1, 

66  CONTINUE 

R*4  ‘ CZ~(C12*^13) 

CS4M4  • C0S<Rrf4) 

SNRH4  * -3 1 (4H4  > 

CSRH5  * nOS(RH5> 

SN9H5  a SIN<Rh5) 

E«H6  * C'lPLX<C5R44,SfJHH4) 

~ T3^~«~C^Trr**H*7S*J*‘15T 
EJHB  « C^PLX»CS9-l5.-Sur?H5) 
ZV*RSlSV«EJR6*TS2SVaFJP7*H,;3SV»EJRn 
ZHaRSlSHaEjR6*43  2SM*FJR7*RS3SH*EJR-'» 

GO  TO  40 
30  DEL  a Cl- AL 

— C23  a *?(3iTrA7(:2;cosrnrLn) 

c24  • 1.1 

C25  « C5»S!N(n=L) 

IF  (nEL  . Fa  . . > (in  TJ  4<> 

C?4  * (StN(C25l)/c25 
45  cO'JTfNUF 

R«tl  * Cl’ — - - 

CSH*11  * COS(R4U> 

SN’HH  * S J M<  R Hi  1 > 

EJ’ll  « JMPLX ( OS’Hl 1 . SNHUl 1 ) 

WS^BSVai  _r23*c5#!;24,E  ji>ll.c7aclr'*CP3#cll*COS(C25) ) 


00012040 
000020*0 
00002060 
03002070 
000023*0 
03002090 
00002100 
00032110 
00002120 
00002130 
00002140 
00002t’0 
00012160 
00002170 
00002160 
00002190 
000O2200 
00002210 
00002220 
00032233 
00UO2249 
000022^0 
00002260 
" 00002270 
000022*0 
00002290 
00002300 
00002310 
00002320 
‘00002330 
00002340 
00002350 
00002360 
00002370 
000023*0 
00002390 
00002400 
00002410 
00002420 
0C002430 
000C2440 
010O2450 
00002460 
00002470 
030024*0 
00002490 
00002500 
00002510 
00032520 
00002530 
0000254C 
00002550 
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f?S^8SH»(  -C23#c5«:2<*ejwll*c7*cl  '•C23«Cn«C0S<C25)  ) 

C2*  « r«*cns<D=i.> 

cz;  ■ i . / < C9  -:3S(C7*dfu ) 

RSniBSV  3 Cir«C23»(C27-Cil)*C6 
RS^bSH  * ClO*C23*(('27*rlli»C^i 

00002560 
0000257  9 
0C002580 
00002590 
00002000 

JT  UL-CAL3J  69,57.67 

0C0C261 0 

67  RSJ0SV  * 

00002420 

RSMflSH  s 

00002630 

60  C° ^ T I NliF 

00002640 

RH6  • - C 6 ♦ C 2 

0 0002650 

RN  7 3 C26 -C25-C2 

00002660 

CS^HS  * C057RH5) 

00002570 

SN*H6  ■ S ! N ( R H 6 ) 

00002600 

CSRH7  » C0S(RH7) 

00002690 

SNRH7  * $ I N ( Rh  7 ) 

00002700 

EJ=»9  a C!'PLX(C3R-(6,SNRH^) 

00002710 

E J R 1 0 « CMPLXI  :SRH7,S1JF-|7) 

00002720 

2V  ■ R5H75v»FJ99*R5rvBSV._F'JBirt 

00002730 

ZH  a RSMriSM*RjR9*RSNBSii*FjRi() 

00002740 

GO  T*  4C 

00002750 

40  ZVC  a rOJJG(/V> 

U000276J 

ZHC  a CO  1 JG  ( Zi4  ) 

00002770 

ssv  s ZV»7V C 

00002780 

a ZNaZMC 

00002790 

RE*LSV  a RF*L<3S^) 

00002900 

RE‘L5H  * RFAl<  SSH> 

00002310 

REk.SYl*RFALSVa4E-Cl 

00002320 

100  REwS v2  a 10.*4.05lMRfcLSvl ) 

00002930 

REwS-)l  a RhALS4*9ELCl 

00002940 

lOi  RFISR2  f lorii-OTn  (BFT  S^D 

00002350 

RM''leATAN2<AlMAG<Zv)  ,RFAL<ZV)  ) 

0 0002360 

CAuL  UP0AT(R*Vi.,RHV2,P*,7KFTAVl 

00002370 

RM-liaATA  42  ( A I HA?<  Z><  > • HP  AL  ( ZH  > ) 

00002380 

CAwL  URD  AT  (R>4R1,9HH2'PI  • THF  T Ah) 

00002390 

AL  a RTO.AL 

00002900 

WRITr(76.To  : ?)  A..r7Fr57'2;RrL5H;>,THF:TAV,TnrTAq 

00HO2J10 

VYldl)  a REUSY2 

000C2923 

VY2( I I ) a HfctS  H2 

0000?9?0 

YYS( 1 I 1 S T*GtaV 

00002940 

YY4(|H  a THFTA-4 

0C002950 

XX( 1 I ) * AL 

00002960 

AL  * 0Tfla AL 

00002970 

A I ‘4  D Y » I 1 

1)0002980 

AL*A  !N’1X«DFLAL  *Av.O 

0C002990 

IF  (AL-ALPAX)  1 

00003000 

20n  caul  plt'Ht 

00003010 

r.O  T 7 1 

00003020 

95  CONTINUE 

O0OC3O3O 

TH=T4V  a , 

0C003040 

TH5TAH  a , 

00003050 

wR I Tc ( ie , ?or 1 ) 

00003060 

GO  T 7 10 

00003070 
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9*9  CONTINUE 
STOP 
END 


00003300 
0C00  3090 
00003100 
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cylinder  azimuth  0ISTATIC  - INPUTS  - 


Radius  of  cylinder  in  inches  u>  « 7,'868oooo 

-TALTn^FTffRT'Cr-cLTNDEH'TV  INCHES  IH1  i 22.1600001 

HAVE  LfcNGHT  IN  INCHES  <CL*M>  a 2,0056000 

INCREMENT  Tn  ASPECT  AHGlE  IN  DEGREES  (DEl*L>  • 0 . IOOOOoO 

MINIMUM  ASPECT  ANGLE  IN  DEGREES  (ALMIN)  * 0, 

Maximum  aSPeCT  aNCle  In  DEgHeeST  IalMaxi' a"  90,0000000 

ASPECT  ANGLE  IN  DEGREES  (Al)  a 0, 

azimuth  Tfst attc  angle  in  degrees  oet>  » io. 2500000 
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Sample  Output  for  the  CYLINDER  Program 


AisvtDasM;ysimre3H.  > 


TWETAV 


THETaH 


0.  1.8«E 

H 1.98? 

•1 

-1.62*' 

-1.645 

0.10  1.8*E 

H 1.98c 

01 

-1.616 

-1.646 

0.20  1.80E 

.1  1.98E 

ul 

-1.617 

-1.646 

0.30  1.87E 

01  1.87E 

01 

-1.615 

-1.646 

0 .40  1 . B >fc 

'rT7T7T7F 

01 

- 1 • 61T 

-1 . 645 

0.50  I.eftE 

01  1.96E 

01 

-1.610 

-1.644 

0.60  1.85E 

01  1.55E 

01 

-1.6,7 

-1.642 

0.70  1.84E 

°1  1.94E 

01 

-1.6o4 

-1.640 

0.80  1.83E 

ni  1.93E 

ol 

-1.6..0 

-1.638 

0.90  1.B1E 

01  1.91E 

01 

-1.596 

-1.634 

1.00  X.SnE 

•41  1 . 9o6 

ol 

-1.592 

- i .6  3 1 

1.10  1,7«E 

01  1.78? 

ul 

-1.5B7 

-1.626 

1.10  1.76E 

01  1.76& 

01 

-1.582 

-1.622 

1.30  1.74E 

"1  1.74E 

01 

-1.577 

-1.616 

1.40  1.72E 

01  1.72E 

01 

-1.571 

-1.6H 

1.50  1.69E 

oi  1.69E 

01 

-1.566 

-t.6o4 

BW»ij 

01 

P1W1 

-1.197 

1.70  1.646 

" 1 1.64E 

01 

-1.553 

-1.590 

1.80  1.61E 

'1  1.61? 

01 

-1.546 

-1.582 

1.90  1.57E 

"-1  1.576 

Ul 

-1.539 

-1.573 

2.00  1.54E 

01  1,545 

01 

-1.532 

-1.564 

2.10  1.50E 

UVIU11 

-1.525 

-1.554  ..  _ 

2.20  1.46F 

"1  1.465 

01 

-1.517 

-1.543 

2.30  1.42E 

Cl  1.426 

Ul 

- 1 . 5 1 ■ 9 

-1.532 

2.40  1.37E 

01  1.376 

01 

-1.5-J2 

-i  .520 

2.50  1.32E 

01  1.325 

01 

-1.494 

-1.508 

2.60  1.27E 

01  1.276 

01 

-1.486 

-1.494 

2.70  1.21E 

'1  1.215 

01 

-1.477 

-1.480 

2.80  l.l^E 

•1  1 . 15? 

01 

-1.469 

-1.466 

2.90  1 , 09E 

oi  1.095 

01 

-1.463 

-1.453 

3.00  1.04E 

'1  1.045 

oi 

-1.456 

-1.438 

3.10  9.74E 

" 0 9.745 

00 

-1.449 

-1.423 

3.20  9.06E 

TO  9.06= 

00 

-1.443 

-1.4n8 

3.30  8.32E 

oo  8.325 

00 

-1.437 

-1.392 

" ' ifr  Mf  TilKAL' Vi  di 

"0  7.315 

00 

-1.431 

-1.  J75' 

3.50  6.64E 

»i)  6.635 

00 

-1.427 

-1.357 

3.60  5.67E 

00  5.665 

uo 

-1.424 

-1.330 

3.70  4 , 61 E 

00  4.585 

uo 

-1.423 

-1.318 

3.80  3.42E 

-0  3.385 

00 

-1.424 

-17296 

3.90  2.0HE 

oo  2.035 

00 

-1.43n 

-1.272 

'4 . oB  5 . 55 E- 

1 477? ? ■ 

-01 

-1.44? 

“ -1.246 

4.10-1.22E 

00-1 . 355 

0 0 

-1.463 

-1.216 

4.20-3.32E 

00-3.355 

00 

-1.5  3 

-1.179 

4.30-5.92E 

<’0-6.335 

JO 

-1.577 

-1.128 

4.40-9.2?E 

0-1.026 

Oi 

-1.726 

-1.043 

4.50-1.33E 

"1-1. 66E 

ol 

-2.088 

-0.820 

47ir-r.w 

Tl-2.47?  01 

-271T74 

o;7?i 

4.70-1.27^ 

1-1.325 

Ul 

-3.532 

1.658 

4.01-9.3*5 

'0-1.035 

Ul 

-3.8  4 

1.820 

4.90-6.8*>E 

o 0 - 7 . 3 2 E 

00 

-3.922 

1.895 

5.00-5.0TE 

'0-5.285 

|<0 

-J.98P 

1.944 

5.10-3.5«E 

0-3. 76E 

OG 

-4.'’  |9 

1.984 

5.20-2747E 

09-3.915 

w 

'-4  .":i?5 

2 .0  u 3 

5.30-1.59E 

'0-2.335 

JO 

-4.  (’30 

2.056 

5.40-8.8<6- 

<'1-1.97  = 

00 

- 4 , ° 3 C 

2.103 

5.50“3.2?E-rl”l.?95 

"0 

-4.t’25 

2.1<6  xv -126 

5.60  1.2'L- 

’1-7.135-01 

-4. .'18 

2.185 

11.7B-i^m-2'.05?  HI 

-~5 . 7T5 

271T0"  - ‘ " ' • 

ll.eo-1.80E 

01-2.095 

31 

-5.930 

2.545 

11.80-1.92E 

01-2.075 

Ul 

-6.170 

2.899 

12.OO-1.90E 

01-1.995 

01 

-6.460 

3.2u0 

12.10-1.94E 

01-1.915 

01 

-6.746 

37449 

12.I0-1.83E 

"1-1. 52E 

J1 

-6,969 

3.660 

12.30-1. 70E 

r l-l . 

01 

-77117 

3 * B48 

12.40-1.57E 

'1-1.685 

01 

-7.213 

4.023 

12.50-i.45E 

01-1.52E 

01 

-7.260 

4,190 

12.60-1.35E 

01-1.565 

01 

-7.297 

4.351 

12.70-1.26E 

01-1.105 

ol 

-7.308 

"47500 

12 .00-1 . 1°E 

01-1.44E 

01 

-7.3o0 

4.659 

EMUP 15143 

o i - l , J8E 

oi 

-7.298 

4 , 0i)4 

13.00~1.07E 

01-1.325 

01 

-7.281 

4.939 

I3,l0-1.03E 

"1-1.25? 

01 

-7.260 

57  065 

13.20-9.90E 

"0-1.195 

01 

-7.235 

5.101 

13.J0-9.61E 

00-1.135 

01 

-7 . 2u7 

5.286 

13.40-9.38E 
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84;96-1.77E  "1-1. 8l! 

78.761 

3.837 

85.00-1.27E  01-1.28! 

01 

78.929 

3.767 

85.10-9. 73E  00-9.77! 

00 

78.993 

3.735 

85.20-7.82E  00-7.84! 

00 

79.028 

3.7i4 

85.30-6.62E  10-6.62! 

0 0 

79.051 

3.697 

85.40-5.98E  00-5. 98! 

05 

79.068 

3.682 

85.I0-5.84E  00-5.54! 

oo 

79.084 

3.668 

85.60-6.22E  65-6.22! 

00 

79 , 1 1)0 

3.653 

85.70-7.l7E  10-7.19! 

00 

79.120 

3.638 

65.80-8.90E  00-8.94! 

MT'M 

79.150 

3.619 

85.90-l.l8E  61-t.iT! 

01 

79.2u9 

3.591 

86.00-l.74E  01-1.78! 

01 

79.382 

3.521 

86.10-2.64E  .n-3.4i! 

01 

80.83d 

1.442 

86.20-i.58E  Cl-1.61' 

01 

81.887 

0.583 

86.30-l.04E  01-1.04! 

01 

82.027 

0.527 

86.40-7.21E  00-7.23! 

00 

82.078 

0.5o3 

86.50-5.l7E  no-5.18! 

00 

82.l'j5 

0.486 

86.40-3.87E  00-3.37! 

00 

82.122 

0.474 

mam 

86.80-2.89E  o o - 2 . 9 9 E 

00 

82.146 

0.453 

86.90-3.l6E  10-3.16! 

0 0 

82.157 

0.443 

87.00-4.01E  10-4.32! 

00 

82.171 

0.432 

87.J0-5.62E  00-5,54: 

00 

82.191 

3.4i9 

87.20-8.44E  6Q-8.49! 

00 

82.229 

0.4jl 

■iumi 

37J*8~ 

87.40-2.65E  11-3.49! 

01 

83.868 

-1.652 

87.50-i.26E  ii-1.28! 

oi 

85 . *54 

-2.650 

87.60-6. 79e  00-6.93! 

00 

85.155 

-2.689 

87.70-3.42E  10-3.43! 

oo 

85.190 

-2.7„6 

87.80-1.21E  '0-1.21! 

00 

85.2  jB 

-2.7i6 

9 7 ; 90  27ffU-^i  2rs^: 

-oi 

■7T577TV 

•2 .724 

88.00  1.21E  00  1.21! 

00 

85.227 

-2.731 

88.10  1.64E  00  1.64s  10 

85.234 

-2.737 

80.20  1.57E  CO  1.57! 

00 

85.240 

-2.743 

88.30  9 , 48E- ' 1 9.465-01 

65.248 

-2.749 

88.40-4.l6E-0l-4.2l=-ol 

83.258 

-2.756 

88.50-2.96E  •’  o - ? . 98: 

00 

85.277 

-27T65 

88.60-8.l6E  10-9.22! 

OO 

85.333 

-2.787 

88.70-2.65E  "1-3. 52! 

01 

86.941 

-4.759 

88.80-6.55E  IQ-6.59! 

00 

88.258 

-5.861  rv-140 

88.90-l.42E-01-l.49! 

-01 

83.311 

-5.881 

6$.  00 

3.74f 

^0 

3.74? 

O0 

b 873 2 9 

-5.809 

89.1ft 

6.52E 

r»0 

6 . 525 

0 3 

08.341 

-5.690 

8V,?6 

8 . 64E 

10 

8.44E 

0 0 

88.344 

-5.895 

89.30 

1.03E 

n 

1.335 

01 

88.346 

-5.899 

89.40 

1.1&E 

01 

1.16c 

ol 

88.347 

-5 . 9o2 

89.50 

1.27E 

01 

1.27  = 

01 

88.348 

-5 . 9q5 

89 . 88" 

1 . 3-Jfc  iTi . 55c  01 

88  TT49 

-579^7 

89.70 

1.42E 

01 

1.42E 

01 

88.349 

-5 . 9ijB 

89.80 

1.48E 

ri 

1.465 

01 

88.349 

-5.9u9 

89.80 

1.48E 

'l 

1.4BE 

01 

88.349 

-5 . 9y9 

90.00 

1.49E 

01 

1.49E 

01 

83.349 

-5.9i0 

_ . 
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CYLINDER -FLARE  Program 


1 . Introduction 

The  CYLINDER-FLARE  Program  was  originally  developed 
under  Contract  AF30  (602)-67-C-0074  for  RADC  by  Cornell  Aeronautical 
Laboratory,  Inc. , under  subcontract  to  the  Fort  Worth  Division  of  General 
Dynamics.  Related  information  pertaining  to  this  program  can  be  found 
in  the  program  GDT04  documentation  produced  by  General  Dynamics.  The 
theory  is  described  in  RADC-TR-68-340,  "Investigation  of  Scattering 
Principles  - Volume  III  - Analytical  Investigation",  May  1969. 

2.  Abstract 

Based  on  the  Geometrical  Diffraction  Theory  (GDT),  the 
CYLINDER -FLARE  program  computes  the  polarization  radar  cross  sections 
in  dBsm  and  the  scattering  phases  in  increments  of  the  aspect  angle  for  a 
right-circular  cylinder. 

3.  Computer  Program  Operating  Environment 

a.  Computer 
HIS-6000 

b.  Source  Language 
FORTRAN  Y under  GCOS 

c.  Memory  Requirement 
25K  words 

d.  Typical  Processing  Time  Required 
0.0123  hours  (44.28  seconds) 

e.  Peripheral  Equipment  Requirement 
Four  disc  files  (file  codes:  07,08,09,  10) 
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f. 


Subroutines  Used 


UPDAT 

BESS 

GAM 

PLTGDT 

SPLN46 

TAN 


4.  Inputs 

The  inputs  which  are  needed  for  the  executing  of  the 
CYLINDER-FLARE  program  are  as  follows: 

A1  - Smaller  radius  of  frustum  (inches) 

A2  - Larger  radius  of  frustum  (inches) 

HI  - Full  height  of  frustum  (inches) 

H2  - Full  height  of  cylinder  (inches) 

CLAM  - Wave  length  (inches) 

DELAL  - Increment  of  aspect  angle  (degrees) 

ALMIN  - Minimum  aspect  angle  (degrees) 

ALMAX  - Maximum  aspect  angle  (degrees) 

AL  - Initial  aspect  angle  (degrees) 

BET  - Azimuth  bistatic  angle  (degrees) 

Input  Format 

The  above  inputs  are  entered  into  the  program  through 
NAMELIST  format.  The  mnemonic  variable  INPUT  is  used  as  the 
NAMELIST  name.  The  first  input  card  must  contain  a $ followed  by  INPUT 
(i.  e. , $INPUT).  After  the  $INPUT  the  data  items  must  follow  in  the  for- 
mat of: 

variable  1 name  3 (value), 
variable  2 name  = (value), 

a 

variable  n name  = (value)  $ 


IV- 148 


Each  data  item  must  be  separated  by  commas.  Following  the 
last  input  data  item  a $ must  be  present.  Refer  to  the  sample  job  stream. 
By  changing  the  above  inputs  the  user  can: 

o vary  the  radar  frequency  and  polarization  of  the  transmitting 
and  receiving  antennas, 

o vary  the  angle  at  which  the  target  is  viewed  (BISTATIC), 

o vary  the  size  of  the  cylinder, 

o vary  the  size  of  the  frustum. 

5.  Output 

Output  from  the  CYLINDER-FLARE  program  first  contains  a 
listing  of  the  input  data.  Secondly,  the  output  contains  a list  of  the  aspect 
angle  (AL)  at  each  increment  from  the  input  minimum  to  input  maximum 
versus  the  following  parameters: 

SV  - the  vertical  polarization  for  the  radar  cross  section  in 
dBsm. 

SH  - the  horizontal  polarization  for  the  radar  cross  section 
in  dBsm. 

THETAV  - scattered  phase  in  radians  of  the  vertical  polariza- 
tion. 

THETAH  - scattered  phase  in  radians  of  the  horizontal  polari- 
zation. 

Through  a call  to  the  subroutine  PLTGDT  four  data  files  are 
built.  Each  file  contains  the  data  of  one  of  the  above  listed  outputs.  That 
is, 

file  07  contains  the  data  of  SV, 

file  08  contains  the  data  of  SH, 

file  09  contains  the  data  of  THETAV,  and 

file  10  contains  the  data  of  THETAH. 
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The  aspect  angle  (AL)  is  not  recorded  on  a separate  data  file. 
The  aspect  angle  can  be  easily  computed  for  the  above  data  by  using  the 
minimum  aspect  angle  and  the  increment  value  of  the  aspect  angle  both 
of  which  are  recorded  in  each  of  the  above  data  files.  That  is,  at  any 
Nth  increment  the  aspect  angle  is  equal  to  the  minimum  aspect  angle  plus 
N times  the  increment  value. 
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(AL) 


Compute  GDT  I 
I coefficients  for  ■ 
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scattering  | 
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inated scattering 
centers 
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Figure  IV -4  Logic  Flow  Diagram  for  CYLINDER -FLARE  Program 

(Page  1 of  2) 
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Figure  IV -4  Logic  Flow  Diagram  for  the  CYLINDER 
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FLARE  Program 
(Page  2 of  2) 


S I DENT 

S USERID 

$ L0UL0AD 

S GPTI0M 

s select 

% select 

S SELECT 

$ EXECUTE 

$ LIMITS 

S PRMFL 

$ PRMFL 

$ PRMFL 

S PRMFL 

5 DATA 

*IMnUT 
A1 =2. 446, 
A2=3. 16, 

HI =3. 0, 

H2= A. 063, 

CL AH= 1.9509, 
DELALa0. 1, 
ALMIU*0. 0, 
ALMAX3 180. 0, 
AL30. 0, 
3ET=30. 0 S 
5 EHDJ03 


CLEARY, NEUFFER  , 651 21 104RADC 
CLEARYSTHREE 

F0RTRAM 
CLEARY/OCYFL 
CLEARY /0XS A 
CLEARY/0XSD 

05, 25K, , 10K 

07, U,L, CLEARY/ STORE 1 

OS,'/,  L,  CLEARY/ ST0RE2 

09,  U, L, CLEARY/ S TO RE3 

10, VJ,L,CLF.ARY/ST0RE4 
05 


Sample  Job  Stream  for  the  CYLINDER-FLARE  Program 
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It  ADC  435/64! 

BATCH  JOB  | 

DATS 

9/9/75 

TIME  jf 

1000  I 

PROONAMMCR 

SMITH 

TELEPHONE  j 

x4753  | 

PAOC  INfllN ICR 

CLEARY 

telephone 

x4765 

SYMBOL  jj 

ocsa  J 

TAPES  ASSIGNED 


PEEL  NO 

WPITE 

PE  AO 

OEN. 

TITLE 

NONE 

Q£]  PEAOEP  U 

DISC -POP  LINKS 1 

□ PRINTER  1 1 PUNCH 

] DRUM  A Of  LINK*  

cow. ..!«  25K  . 

ACTIVITIES 

1 

processor  time  , 05 

estimated  line*  or 

PRINT  10K 

TOTAL  DUN  TIME  , 05 

DECKS  EXPECTED 


NO  OP  BINARY  DECKS 

non: 

NO.  OF  C OM DECKS 

EMC 

TAPE  □dump  □copy 

iFPOMt 

TOl 

MODE 
□ BCD 

NO  OF  FILO 

SPECIAL  OPEKATOK  IKSTWUCTIONS 


I 

■ IHf  FORM  A U PREVlOU*  COITION  WILL  BC  UltD 
",WV  APB  •>  w_** 

HIS -6000  Batch  Submittal  Form 


IV- 154 


•■y»“  ~ 'ircww'- 


•0*2*  01  09-29-73  11.38b 

C PiOOeAH  CtllMDER  PlAjE  (BCiPi)  

c 

COHHOV/VbH/YY 1 ( 2800 ).tr2( 2000 ).vT3( 2000 ),vyb( 2000), XX ( ^000 )fZZ 
COMPLEX  EJR1.EJR2.EJR3.SJB4,EJBS.EJR6(EJRj,I!J|8,BESY#R»ISH* 

X BMSV,RH3H.ZV.IV£.ZH.ZHc.SSV.33H.£JPR.EJRKB,RNSBV,rM5BH,eJR9 
Itbl  B1(9).B2(3) »B3(9).Bxf9),Bi{9*.cT{9)»Bb(9),B5(9)#B6(9). 

X B7(9).B8(9)*B9(9).B10(9).B1li9),B12(9)*OY(9),Ey(9) 
^iiMilXSt7ZMPuT7ATVA2.HT7iri#ClAM,BiLAL.UHrK,^LHXX,il,IEI 
1001  PORNAT( 1 H ,7x13.9) 

2000  PoRHifi  1H  1 . /////?9X',  * tNPUTS  - CTLIBbER  TLaRE', 

*/////29X. 'SMALLER  RiPZOS  or  PROSTUM  (.1)  - *#P14,7, 
•/^/aOX.'lxROER  R»DZuS  OP  fRUSTUM  (r2>  • ‘.PI4,*. 

*//>29X.'PUtL  M«i|HT  OP  PBUSTUK  (HI)  • *.P14,*, 

*777I«xVftar  HixtHT  O#  ^IzIdeS 

*///29X,'W»VE  LeROTH  iCl,Mt  ■ *,pib,7, 

*///29X.*lRrREM*Hf  i*  ASPErT  AHGIb  X*  beGREES  (brLAL)  ■ '.P14.7, 


*///29X,'«»VE  LeMOTH  ( gl» M 1 - * ,P1b,7, 

*///29X.*xIIcReHe«*  X*  *S?ecT  AHOie  jM  dEQREES  (beLAL)  » '.P 
•/772oX»‘MxMXMUH  iSPfcT  ARSLE  x»  DEOBEEs  (AtHI*>  ■ •|^I‘.7| 
*///29X.*MaXZMUM  aSPEcT  ahgle  XH  DEGREE15  <ALHaX)  ■ *,H4.*» 
*//7l_9X,  ' ASPECJ_ABGIE_XN  DEGREES_lAl ) ■ ’ ,r  1bt7, 

i7//2,X.IBlS*A*Xc'  A»»le  DEGREES  ■ '*f14.7./1H1) 

I PORMAT(3X#,Al'.3x*'8V(DBR*1)'»1X,,SH{[)gSM)',2X, 
•*THeTAV',2x.*THETAH‘,//) 
i ForHAK IX.pT.2, 1p2E9.2,0P2P8.3) 

I READ{05|Zl(PUTf BHB-999 ) _ 

fRZTX (06.2000)  Ali A2. K^l H2» CLAM. BELAL, ALmXM, UR AX, aL» BET 
XX  ■ o 
Theta  • o. 

IHY 2 ■ 0. 
kNH2  « Oc 

IELC1  - jOXSbSolSb  

Tx  ■ j'.TbisfiM 

A2A  1 ■ ( A2  -A1)/(N1  ♦ H2) 
klA2  ■( A2  - Al*/H2 

IS-ATAN ( A2A  1 1 
XP*ATaH(AU2) 

OTR  ■ PZ/180. 

»TD  • llO.Vfl" 

delal  - belai*diI 
almzr  - AL«ZN*BTi 
almax  ■ ALNA**BtI 
AL  - AL*DTR 
bet  ■ bet*dtr 
»bet  - BiT/27' 

CH  ■ 2.*PZ»COS(HbET)/cLAH 
ALO  ■ aL 
Chi  ■ 3./2. 

CR2  ■ 1,-Xp/pX 
Cr3  ■ 3./2.*XP/pt 
Cl  - fl 
C2  • Pl/2 . 

C3  ■ PZ/tt. 


coooiooo 

coooioio 

00001020 

00001030 

ooooiouo 

C0001050 
00001060 
00001070 
C 000 1080 
00001090 
00001100 
00001110 
00001120 
0C001130 
CC0011U0 
00001150 
C000H60 
C0001170 
C0001180 
OOOOH90 
00001200 
00001210 
00001220 
0000123C 
000012U0 
C0OO125O 
00001260 
00001270 
00001280 
00001290 
COOOI3OO 
00001310 
00001320 
COOOI33O 
OOOOI3UO 
C0001350 
00001360 
00001370 
00001380 
00001340 
C0001400 
C0001410 
00001420 
00001430 
00001440 
00001450 
00001460 
000014*0 
00001400 
00001490 
0000150C 
00001510 
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•0?2*  01 


09-29-75  11.394 


C 

c 


C4  ■ 2 • *CK* A 1 

C000152Q 

Ti  ■ 2>CK*A2 

00001530 

C6  ■ 2 . *CK*H 1 

C00015U0 

C7  ■ 2*#CK*H2 

OOOOI55O 

CAHSC  - 2.4U280764»COS(HBET) 

00001560 

e»SBC  ■ 2.254B279*C0S(HBET) 

0000157Q 

CaLI  ■ XS-HbET 

00001580 

CaL2  ■ c2-HBET 

COOOISgO 

C*L3  ■ C2+HBET 

00001600 

CAi“  • Cl-xr-HBEt 

C000161Q 

exL5  - c 1-xS-HflEt 

C0001620 

C*L6  ■ XS+HBET 

C000163C 

Cl  ■ COS(C1/CN1) 

C0001640 

eB  ■ sis { c i/cH  i ) 

OOOo 1650 

CIO  * C0S(C1/CN2T 

00001660 

Cli  • SIK(cVCK2f 

0000  1 67(j 

C 1 2 * C0S<C1/CN3T 

000016a0 

C 1 3 • SX»(c1/CM3T 

COOOI69O 

C20  5 li/lSLa-COsiflET/C N 1 1 i 

00001700 

C2 1 • 1./(c10-cOS(BET/c»2f) 

C000171C 

C22  • 1,/(c12-c0l(BXt/cH3t) 

C000172C 

XXL  ■ <H2)/(cOS(*F>» 

C0001730 

»*Ga»S  ■ (ciim/(2.tXXL*COS(0£T/2.)) 

0000174 p 

HLObEW  ■ xbSIN< a*G*RS) 

C0001750 

00001760 

AtlXcH  ■ HlOBEM*Tl.8/7.51 

0000177C 

ALSIOF  ■c2-Xr*Aij»cP*.3*DTR 

00001780 

ALbEGB  «C2-Xr-ALIMC«-.3*DTH 

C00017g0 

ClROxp  « ((8.*PI»COStBEI/2.))/f 

9.*CiAX* 

C0S(XP)*(SIN(XF)**2> >) 

00001800 

X *tU2**1.5-A  1»*1.5P**2> 

C0001810 

CILS1  ■ CB|QAp*BJlCj 

00001820 

CILS2  - 1C.*ALO01‘,(CELS11 

00001830 

CpLOT  1 - CELS2 

0000  1 B**0 

CPLOT2  ■ CELS2 

00001850 

C 000 1 860 

00001870 

AIESTL  • C,05*DT>I 

00001880 

ALUP  ■ 6 , 1 *DTR 

00001890 

CO  TO  95 

00001900 

10  XX  ■ II*1 

00001910 

Xp  (ABS(AL-ALBEGN) .LE.ATESTL) 

albegn  «= 

AL 

00001920 

XF  ( ABS( Al-ALBEGS) .LE.ATEsTL) 

III  - II 

0000193’' 

XP  ( A BS ( AL-ALSTOP) .LE.aTESTU 

ALSTOP  - 

Al 

"COO I9U" 

IP  (AB5(a1-a1STOP).1E.aTESTL) 

1X2  - II 

00001950 

C 14  » C4*SIM(AL) 

00001960 

C 1 5 ■ C5*SXN'(AL) 

00001970 

C 18  » C6*C0S(AL) 

' D 0 0 1 9 8 0 

C17  • C7*C0S(AU 

C000199C 

C70  ■ SQRT (Cl6**2)/2. 

''000200  0 

• HI  ■ C3-C 1 4-C  16 

00002010 

*M2  ■ C3-C14 

0000202'' 

«H3  • C3-C15*C17 

00002030 
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•0?2T  01  09 

-29-75  19,384 

|M4  • 

-C3+C14-C1I 

00002040 

IMS  ■ 

Cl 

"0002050 

»H6  ■ 

-C3*Cl5^C1t 

00002060 

lK7  ■ 

♦C17 

00002070 

lN8  ■ 

-CJ-C16 

00002080 

■ H9  ■ 

-C2*C17 

00002090 

CSRHl 

- COS(RHI) 

00002100 

fRRH* 

■ SiilTRH}) 

00002110 

es»H2 

■ COS ( RH2 ) 

0000212C 

BURRO 

■ SZH(RH2) 

00002130 

C|RH3 

- COS ( RH3 ) 

00002140 

Imrhs 

- 3XN/RH3) 

00002150 

cm?  ; 

• cOS ( RH4 ) 

00002160 

filNB 

■ SXM ( RH4 ) 

00002170 

CSRH5 

■ COS(RHS) 

00002100 

• llHi 

■ Sl»(RH5) 

00002 IgO 

CSRH6 

■ C0S(RH6) 

00002200 

IllHi 

- SXN(RH6) 

00002210 

CIIHJ 

• cOS(RX7) 

00002220 

■ SjR ( RH7 ) 

00002230 

cllXl 

• COS(RH8) 

0000224Q 

illX| 

■ SXK(RH,) 

00002250 

CMHg 

• C0»(RH9) 

00002260 

BVRHg 

■ SXHtRHg) 

00002270 

fill 

CMPI,X(£6R«1.SNRH1) 

00002200 

IjR2 

CHRlxtcRRliiSHRHjT 

‘ ~ 00002290 

«JR3 

CHPLX(CSR?3.SRRH31 

00002300 

1 JR  4 

CHPLX(C8RM4.8KRH4) 

00002310 

BJR5 

CHPlX ( c6Rh5 • SKRH5 ) 

00002320 

BJR6 

CHPLXtCBRtifttSKRHS) 

00002330 

BJR7 

CHPLX(CSRN7«SVRH7) 

0000234(3 

mi 

CMPLiCfCSAhl.SXBHlI 

00002350 

UR9 

CHPLX(C8RN9»SMRH9> 

00002360 

IhPI 

C16/2. 

00002370 

CSPR 

COS(RHPR) 

00002380 

• RPR 

SZN(RHPR) 

00002390 

IJPR 

chpj.xicspr.sxpr) 

00002400 

CflHB  • COS ( FHB ) 

Srrhb  ■ SZN(RHB) 
tJRHB  ■ CMPlX(cSBH3.SiJPMBl 
If  (C70.  GE.  CBSUC1  GO  TO  11 
CIS  ■ SQRT(a1/<CK*SIS(aL))) 

m • sQiTu27Tc?*smvtrn 

C25  ■ 1./(C12-C0S((3.»PI-2.*AX,»/CII3J) 
>$3sr  ■ (ci3/CB3T*cl9*<c25-c22i 


«S3SM  ■ {Cl3/c»3i*c19*(r2J*C22> 
e26  • i./(c8-cosflpX-2‘.*Ai}/c»(in 
(C9/CN1)*Cla*(c264C20) 

tb»7cim*c1»rtc**TciM'i 


• S4SV 

IsbsH 

Xrut. 

tsusv 


IT. 

• o. 


CAL2  ) GO  TO  25 


00002420 

00002430 
00002440 
00002450 
00002460 
0000247Q 
00002480 
00002490 
00002500 
C 00025 1 0 
00002520 
00002530 
00002540 
00002550 
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IsusH  

2$  CONTINUE 

C27  - 1./(C12-cOS(  (PI-2.*.M/CN3J) 

RS6SV  - (Cl3/CN3T*d9*(c27-c22j 
NS6SK  ■ (C13/CN3T*C''9*(C27*C22) 
irUi.  GT.  CAL3)  GO  TO  30 
IS6SV  ■ 0, 

isesH  m o. 

30  CONTINUE 
SRXOX  - 1. 

Xr(il.  EQ.  C2)  GO  TO  72 
0NXOX  * SlN(Cl6/2.)/(Cl6/2.J 
72  NHSgV  « -g_l8*cN*H1*SNXOX*EJRHfl-(C9>'CN1>*Cl8*C20«EJR1 
X -(C11/cN2)*ci8*c2T*EJR2 
RnSBH  * -C18*CK*H1*SNXOX*EJR1!B+(C9/CN1)*C18*C20*EJR1 
X ♦(C11/CN2)*C18*C21*EJR2 
tV  ■ RNSBV  ♦ RS3SV*E JR3  ♦ RS4sV*EJR4  ♦ RS6SV*EJR6 
tH  > RMSBH  * RS3SH*EJR3  ♦ RS4SH.EJR4  «.  RS6SH*EJR6 
60  TO  50 

1 i If  (»Lr.  ge^.  c2i  ao  to  si 

IriAt.  GT.  CA1’)  50  TO  61 
c20  • i./tc^-coat 3.*pi/c»3n 
C2g  ■ 1./(c12-cOS(9ET/cN3)) 

C30  ■ SIN ( 3 , *PI/CN3 ) 

C31  • U2*ClU/LCl3*SflFTtFin 

order  * o. 

call  bessiorder,  cis.  us) 

C32  > BS 

order  ■ 1, 

call  bess(oRder,  C15.  bs) 

C33  ■ BS 
ORDER  - 2. 

call  bessioRder,  cis.  bs) 

C34  ■ BS 

C35  ■ C31*(2,*PH*c2r*c32 

C36  ■ C31*C30*«2' /CN3)*C2b*C33*TAN(AL) 

C37  ■ -C31*(2.*PI)*C29*C34 
■NSV  " lC3 5-C36*EJR5-C17> *SU«7 
RnSH  ■ (c35-c36*EJ!,5  + c37)*F:JP7 
GO  TO  62 

61  RNSV  ■ 0. 

RNSN  ■ 0. 

62  If(c1U.  LT.  CRNSc ) GO  TO  12 
C38  ■ S0RT(a1/(CK*5I^(aL) i ) 

C39  ■ 1./(c8-C0S?  (PI*2.*aD/CX1  ) ) 

C40  ■ 1./(c8-C0Sf (PI-2. *AL)/CN1 > > 

RS1SV  ■ (C9/CN1 ) »c38* (C39-C20 » 

RS1SH  ■ (c9/cK1)*c38*(c39;c20! 

RS4SV  - (C9/CN1) •c3a*(C40-c20) 

RS4SH  ■ (c9/cN1)«c38*{cl*"^c20) 

IT  (al.  LT.  CAL2)  30  TO  63 

R S 4S V a 0, 


00002560 
000o257Q 
0000259C 
000025g0 
00002600 
00002610 
00002620 
0000263c 
00002640 
0000265Q 
00002660 
00002670 
00002680 
00002690 
00002700 
00002710 
00002720 
00002730 
00002740 
0000275c 
C000276C 
00002770 
0000278c 
0000279? 
000028  JO 
00002010 
00002820 
“0002830 
C0002840 
00002850 
00002860 
00002870 
C 0 0 0 2 8 8 0 
00002890 
:0002900 
00002910 
00002920 
00002930 
00002940 
COO029SO 
COO02960 

*000297? 

00002930 

'0002990 

00003000 

00003010 

00003020 

0000303? 

'000304? 

' 0003050 
00003060 
CO  0 0 30 7? 
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i 


RS4SH  - 0. 

63  CONTINUE 

C41  ■ 1./(C10-COS(2.*AL/Cr2) ) 

IS2SV  « (C11/CM2f*c38*(CUi-C2l) 

■S2SH  ■ (C11/C"2T*C38*(C41*C21' 

Iff*1*  ST.  HflET)  60  TO  13 
RS2SV  » 0. 

IS2SH  • 6. 

13  CONTINUE 

C 1 a ■ SQRT(x2/<c«*SIN(Ain  ) 

C25  ■ 1./(c12-cO« ( (3.«PI-2.#»1<>/CN3) ) 

IS 3SV  ■ (Cl3/CN3f*Cl9*(C2S-Ci2) 

IS3SH  > (cl3/rN3T*r19«(c254.c22) 

If  Ut'.  GT".  CfcifiT  GO  to  9! 

IS3SV  - 0. 

IS3SH  - 0. 

9I  CONTINUE 

tV  ■ lS1SV*EJR1'*,iS2SV*EjR2*’NS4SV*EJl9>RS3SV*EJB3 

tH  « RS1SH*EjR1*iS2SH*pjR2*RS4SH*EJ*4*RS3sH*EJB3 
60  TO  50 

12  c*2  ■ cu*x1*SQRltPil 

C<*3  • (c9/c»1>*s9*tU1''cK' 

CCA1S2  * CK#  A 1 

IF  (aL‘.  EQ.  0.)  30  TO  21 

CCA  1 s 1 “ 1./SIN(iU 

CCA  IS  ■ CCA1S2 

IT  (CCA^-CCA’SU  21.21.22 

21  CCA  1 5 ■ CCA1S2 

22  CONTINUE 

C44  ■ SQRT ( CCA  IS  f 
ORDER  • 1. 

CAiJ.  BESStoRDER,  C14.  BS) 


C45  • BS 
CBXOH  * 0.5 

Ir  (Al'.  EQ.  0.1  60  TO  23 
CBX0X1  ■ C45/C14 

23  continue 

RHSV  ■ c42*caX6Xl*EJR8-c<*3*c44Rc20»(EJR1+EJR«) 
Rush  ■ c42*CBXOX1*EJR8^c43*c44*C20*(EJR1*EJR4) 
C46  ■ 1./(ClO-COS(2.*Al</CN2)  I 
C47  ■ (Cl 1/CN24*SQRT(A 1/CK) 

RS2SV  ■ C47*C44*fC46-C21> 

IS2SH  « C47*C44*?C46*C21 ) 

It  ( Al".  GT-.  HBETT  36  TO  2 i* 

RS2SV  • 0. 

*S2SH  • 0. 

24  CONTINUE 

tv  ■ *HSV  ♦ RrsV  ♦ Ib2sv*iJS2 
*h  * Rush  ♦ Rnsh  ♦ Rs2sh*eJR2 
Go  TO  50 

81  If(c15.  IE.  CXNSc)  60  TO  32 
C 1 8 ■ SQRT(Al/(CN*5IK(AUi  ) 


0070308) 
''0003013 
00003170 
C 0003  110 
3000312; 
'0003130 
00003140 
( 0003150 
C000316) 
00003170 
O0003l80 
C 0 0 0 3 1 9 0 
00003200 
00003210 
C0003220 
C000323C 
00003240 
C000325? 
C00032«0 
00003270 
C00032«0 
C00032g0 
00003300 
C00033  1 3 
*0003320 
00003330 
C 000334  ) 
0000335; 
00003360 
0000337; 
00003380 
C0003390 
C0003400 
00003410 
0000342; 
0 0003430 
00003440 
C0C034S) 
C 000346  0 
00003470 
'■000348- 
0000340  ) 
"0003500 
00703517 
0000352*' 
00003537 
0000354  1 
7000355; 
C0003580 
7000357) 
0000358- 
r 00035  9 7 
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19.384 


ei9^>  sstiT(A2/ic*tsi»iAT  n) 

cT3  ■ i./(cT-cosr(PiO>u)/cNin 

»S1SV  « (C9/C»1)*Cl8*<c23-c20) 

IS1SH  - (C9/CK1 >*C18*(C23;C20) 

XFIaL.IT.CaI.5)  GB  TO  ,5 
8S1SV  x 0. 

ftSISH  ■ 0,  

TS  continue 

C24  • 1./(C10-COS(2.*AL/CN2) ) 

IS23V  « ;ci1/CM2T*Ci8*(C24-C2l) 

BS2SH  - (C1  Vc»2T*c18,fc24*c2l> 

IF  i AX'.  XT.  CAXU)  GO  TO  20 
IS2SV  ■ 0.  _ 

fs2SM  * 6. 

20  CONTINUE 

e25  ■ 1./(C12-C0«(  ( 3'.*PI-2.*AL)/CN3)  ) 

IS3SV  - (C13/CN3T*C19*(C25-C22) 

IS3SH  - (Cl3/cN3t*-19*(r25^c22) 

C27  ■ 1./(c12-c09( (FI-2.«tX)/cN31 > 

*S6SV  x (Cl3/CN3t*cl9,(C27-c22) 

•S6SH  ■ (Cl3/CN3T*c19*{c27>c22) 

Xr(AX'.  GT.  CAL31  GO  TO  82 
»S6SV  x 0, 

8S6SH  x 0. 

82  CONTINUE  _ _ . ... 

*V  x *S1SV*eJR1+«s23V*eJB2*RS3SV*EJR3 
ZH  » ES1SH*EJR1*8S2SH*EJS2*RS3SH*EJR3 
GO  TO  SO 

32  C48  ■ C5*A2*SQRT?PI) 

C49  ■ {C13/CN3)*SQRT( A2/CK) 

CC12S2  * CK*A2 

fir  (ax’.eo.c'u  go  TO  41 

CCA2S1  ■ 1./SIN(aX) 

CCA2S  x CCa2S1 
If  (CCA2S2-CCA2S1 ) 41.41.u2 
41  CCA2S  x CCA2S2 
u2  continue 

CSO  x SQRT(CCA2ST 

order  > i. 

CAXL  BESS ( ORDER . CIS.  BS) 

C51  ■ BS 

CBXOX2  • 0.5 

IF  (AX.  EQ.  CH  GO  TO  43 
CBXOX2  * C51/C15 
43  CONTINUE 

EV  « cu8*CBX°X2»eJR9-c49*c50*c22MKJR3nJR6) 
ZH  • cu8*CbXOX2»eJP9*c49*C50*C22*(H'JA3*EJR6) 
GO  TO  5O 
50  ZV  ■ Z V *E JPR 
ZH  * ZH*FJPK 
ZVC  ■ CONJG(ZV) 

SSV  X ZV*ZVc 


♦RS6SV*EJR6 

+RS6SH*EJR® 


00003600 
00003610 
00003620 
00003630 
00003640 
00003650 
0000366; 
0000367; 
000036B0 
C000369; 
0000370; 
00003710 
00003720 
0000373; 
0000374; 
0000375; 
0000376; 
0000377; 
0000379; 
000037g0 
C0003809 
00003810 
00003820 
00003830 
00003840 
00003850 
00003860 
"000387; 
00003890 
00003890 
00003900 
000039i; 
0000392 0 

00003930 

00003940 

O0003g5; 
00003960 
0 000397; 
•'0003990 
C00039QC 
000040C 0 
''0004010 
C000402'-. 
00004030 
C0C0404C 
"0004050 

0000UO80 
: 0 " 0 4 0 7 0 
■'0O04090 
,0004090 
00004100 
:coo4 1 10 
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ZHC  ■ CONJG(zH» 

SSH  ■ ZH*ZHC 
*Z»LSV  - REAl(SSV) 

>E*LSH  - ReU(SSH) 

«»1SV1  « REAlSV»»ElCl 
*ELSV2  ■ 10.  * ALOG  1 UeLSVI) 

» RfAl.SH*«ELr1 
>|LSH2  ■1C.*»LOG1  (IrLSHl) 
*H,1"AIA,|2(Al«A0*Zv>*REALf3v’  > 

C»tt  0PDATfRHV1.RHV2.Px.THETAV) 

RHH1-ATAN2I AjMAGf ZH).REAL?ZH)  ) 

CrLI  UPDaT<PHH1.RHH2.PI.ThET»H) 
iL  ■ ITD* al 

"RITE <6,2 ^ 0 2 > .L.  RELSV2.  RELSH2.  THeTrV,  THETrH 
If ( IELS V2 . GT . .)  ROISV2  * AMIN  1 ( RELSV2, 40 . ) 
IF(REtSV2.LT.  '.)RE1.SV2  ■ Af1AX1(REl.SV2,-70.) 
XF(REISH2.GT.  .)  RELSH2  - A«jK 1 ( RELSH2. 40  . ) 
IF(RElSH2,lT.  ’.  ) ReLSH  2 ■ r^rX 1 ( RELSH2,-70. ) 

■ REISV2 
*t2(ix)  ■ rElSH2 
YY3(II>  ■ THeTrV 
TY4(ii)  ■ THETAH 
*X<II)  * rL 
U * DTR*AL 

If  (ABS(AL-ALSTOP).GT.ATESTL)  30  10  300 

tc  ■ III 

CC1  • ALBE3N 

»P  * 9 

Ic2  - II2-3 

CC2  ■ AL5ToP-3.*AU’P 

DO  301  I * 1.4 

BX  ( I ) - CC1*RT0 

BY ( X ) ■ YYKIc) 

CY(I)  - Yt 2 ( IC ) 

DY(I)  - YY3(IC> 

E Y ( I ) ■ YY41IC1 

IC  * xc*1 

cel  ■ ALUP+CCl 

301  Continue 

BX ( 5 ) « (PI/2.-X»)*RT0 
BY(S)«  CPJ.0T1 
C Y ( 5 ) ■ CPL0T2 
DO  302  I * 6.9 
Bxll)  * C C 2 * R T D 
B Y ( X ) ■ YY1(Icr2» 

CY(I)  ■ YY2<IC2) 

D Y ( X ) - YY3(IC2) 

EY ( I ) « Y Y 4 { IC 2 ) 

IC2  « IC2*1 
CC2  ■ CC2»AL’Jp 

302  continue 

DY  ( 5 ) ■ ( DY(4 ) ♦ DY ( 6) J/2. 


C 0^04  1 2 •' 
:.ooo4i3 : 

C0C04l4f; 

C 0 0 0 4 1 5 

00004160 

00004  17.) 

'0004 1 R' 

00004  1r) 

00004200 

r 0 0 0 4 2 1 0 

'000422: 

0000«230 

00004240 

0000425: 

-000426.) 

0000427) 

000042"  ' 

00004290 

000043, ’0 

00004310 

0. 0 0 0 4 J 2 A 

0000433.' 

0000434r 

000043SC 
0 0004360 
0000437' 
00O043"0 
O000439  ; 
000044  :r 
00004410 
1000442-' 

c or  044  3o 

0000444" 
00004450 
0000446 .) 
0 0 0 0 4 4 7 0 
"■  0 0 0 4 4 R 
O0004490 
’00045  i 

■ 0 0 0 4 5 1 , 
'■000457,; 
’ 0 0 0 4 5 3 - 

000454 
"00045')  -■ 
0"0456 
0000457’ 
00045"  ‘ 
o 0 0 o 4 5 0 
' 0 " C 4 6 - 
00004610 

■ 00046  2 i 
'000463  ' 
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S2.f0i2.SfcE  01-2. 27E  (H 

S3  0n_7  lit  ft*  i ^<4  * 


* 1 • 6 6 9 *0.728 


•0?2T  »1  09-29-75  11.394 


IT(5>  » (EX<4)»Et(611/2. 

0000U64Q 

343  S|  - ALBEGu  * 8TB 

CO0OU65O 

CALL  SPLN46  ( •'.XP.rP.BX'.BY.NP.BI^.Bj) 

00004660 

CaLL  SPL446  ( -''.xP.YP1.BX.cZ.,,f.»<**B5,B6) 

00004670 

Cali  SPLN46  < .x9.rP2.BX.Dt.sP.B7»B8*»9> 

C00046g0 

call  bpln46  <o.xf.rP3.Bx.tr.Np.Bio.Bi i.»i2) 

000046g0 

CcCCl«DIlll**Tp  . 

0000470Q 

bo  303  I ■ II 1.1^2 

00004710 

call  bpln46  < i.xp.rP.8x,Br.NPtBi.82,B3) 

00004720 

call  *pln46  t i.x#.tpi.bx.cx.»p.b4.b5,b6> 

C0004730 

Call  SPLN46  M.XP.rP2.BX.D*.NP.B7«Ba.B9) 

00004740 

Call  spln46  ( i'.xI. tp3.bx.it. np.b10.bH»bi2> 

C000475C 

xxti)  ■ XP 

C0004760 

liriTi)  ■ tp 

0000477Q 

TT2(X)  - YP1 

C0004780 

TT3 ( I ) • XP2 

000047q0 

TX4 ( X ) • TP3 

C0C04800 

X»  • XP+CCCC1 

00004010 

303  CONTINUE 

00004g20 

AL  - ALSTOP 

00004830 

o 

o 

m 

AJIIOX-II 

OOOO404Q 

al«axbox*delal  ♦ AlO 

COOO485O 

IP  (AL-ALBAX)  10*1. .200 

COOO406O 

© 

o 

09 

CALL  PITGDT 

00004870 

J 

00004880 

95 

CONTINUE 

00004890 

*IXTE{6,2001) 

00004900 

thetav  ■ 0. 

00004910 

THETAH  ■ o. 

0000492^ 

So  TO  10 

C000493O 

911 

CfilUXUE 

00004940 

STOP 

00004950 

t«D 

00004960 
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Sample  Input  for  the  CYLINDER -FLARE  Program  as  Output 


INPUTS  - cylinder  flare 


smaller  RADIUS  or  FRUSTUM  { A 1 ) ■ 


2.4460000 


larger  radius  of  FRUSTUM  ( A 2 ) 


3,1600000 


run  height  or  frustum  ( h i > * 


8,0000000 


full  HEIGHT  OF  CYLINDER  (H2) 


4,0630000 


WAVE  LENGTH  (CLAM)  « 


1,9509000 


INCREMENT  IN  ASPECT  ANGLE  IN  DEGREES  (DELAL)  ■ 


MINIMUM  ASPECT  ANGLE  IN  DEGREES  ( ALMIN ) 


MAXIMUM  ASPECT  ANGLE  IN  DEGREES  (ALMAX)  * 180, 


ASPECT  ANGLE  IN  DEGREES  (AL)  = 


O'. 


BIsTATIC  ANGLE  IN  DEGREES  (BET)  * 30,0000000 


rv-l65 





0,1000000 


0000000 


Sample  Output  for  the  CYLINDER-FLARE  Program 
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Al  S V ( DBSN ) SHteBSHl  ThIT|V  flftTAH 


tr; — •r,33i" 

00-1.531 

W 

"-T7T5T 

*1.367 

0.10-1,53* 

00-1. S3E 

uO 

-1.282 

*1.368 

0.20-1,53* 

00-1, S3i 

00 

-1.281 

il'.3«9 

0,30-1. 33E 

00-1.33* 

CO 

-1.280 

*1.370 

o.io-r.3tti 

00-1. lui 

00 

-r.a78 

if.  371 

0,30-1. S5E 

00-1.55* 

cO 

-1.277 

*1.372 

0,80-1 .55E 

00-1 .55* 

00 

-7.276 

• 372 

0.70-1.56E 

00-1.56* 

oO 

-1.274 

*1.373 

O.IO-f.57* 

00-1. S7i 

00 

-1.273 

;r.373 

0.90-1.39E 

00-1.59* 

-0 

-1.271 

*1.373 

1.00-1, 60E 

00-1.60* 

00 

-1'.270 

;r.3?u 

1,10-1. 62E 

00-1.62* 

.0 

-1.268 

-1.374 

1,10-1.  ?r* 

00-1 ,T3¥ 

0* 

-r.w 

*1 

1.30-1. 65E 

00-1.65* 

CO 

-1.264 

-1.374 

1.80-1.67E 

00-1.67* 

00 

-1.263 

if.373 

I.So-1. 69E 

00-1.69* 

00 

-1.261 

*1.373 

1.80-1. 72E 

00-1.72* 

00 

—1.259 

;i*.373 

1 ,7o-1 .7UE 

00-1 .7U* 

*0 

-1.257 

*1.372 

r.foiiTr?E 

00-1.77F 

00 

-1 .355 

•1.3*1 

1 .80- 1 • 80E 

00-1.80* 

.0 

-1.253 

*1.371 

2.00-1.83E 

00-1.83* 

00 

—1.251 

*1.370 

2. 10-1.86E 

00-1.86* 

jO 

-1,2tt9 

*1.369 

2.20-1.89E 

00-1.89* 

00 

-1 .246 

if.368 

2.90-1.93E 

00-1.93* 

^0 

-1.244 

-1.367 

1.30-1. 96E 

00-1.96* 

-1.TU2 

« 1 , 365 

2.30-2.00E 

00-2. OOE 

,0 

-1.239 

-1.364 

2.60-2.04* 

00-2.04* 

00 

-r.237 

-1.363 

2,70-2. 08E 

00-2.08* 

jO 

-1.235 

-1.361 

2,80-2. 13E 

00-2.13* 

00 

-1.232 

-1.359 

2.90-2, 17E 

00-2,17* 

oO 

-J!  *250 

*1.358 

3.00-2.22E 

00-2. 22* 

00 

-i;227 

-1.356 

3. 10-2.26E 

00-2.26* 

•jO 

-1.224 

-1.354 

3.20-2.31E 

00-2.31* 

00 

-1.222 

-1.352 

3.30-2.36E 

00-2.36* 

.0 

-1.219 

*1.349 

3 .1*0-2  • 42  E 

00-2. U2* 

00 

-1.216 

*r.347 

3.S0-2.47E 

00-2. U7 * 

0 

-1.213 

-1.345 

3‘.  50-2",53e 

00-2.53* 

50 

-r.3H 

- 1 3 tt  2 

3 , 7o-2 , 59E 

00-2.59* 

CO 

-1.208 

*1.339 

3.80-2.6SE 

00-2.65* 

00 

-1.205 

-1.337 

3.90-2.71E 

00-2.71* 

0 

-1.202 

*1.334 

“.00-2.77E 

00-2.77* 

00 

- i '.  i 9 9 

•1.331 

tt.lO-2.84E 

C0-2.8U* 

■:o 

-1.196 

-1.328 

~ tt;iOi2'.flOE 

00-2V90* 

30 

if.  193 

-r.324 

tt.30-2.97E 

00-2,97* 

0 

-1.190 

-1.321 

tt.ttO-3.OUE 

00-3.04* 

00 

— 1 . 186 

* 1 '.  3 1 8 

U. 30-3. HE 

00-3,11* 

vO 

-1.183 
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Plots  from  the  Sample  Output 
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Aspect  Angle  (A L.)  in  Degrees 


F.  FRUSTUM  Program 


1 . Introduction 

The  FRUSTUM  program  was  originally  developed  under  Contract 
AF30  (602)-67-C-0074  for  RADC  by  Cornell  Aeronautical  Laboratory,  Inc., 
under  subcontract  to  the  Fort  Worth  Division  of  General  Dynamics.  Related 
information  pertaining  to  this  program  can  be  found  in  the  Program  GDT02 
documentation  produced  by  General  Dynamics.  The  theory  is  described  in 
RADC-TR-68-340,  "Investigation  of  Scattering  Principles  - Volume  HI  - 
Analytical  Investigation",  May  1969. 

2.  Abstract 

Based  on  the  Geometrical  Diffraction  Theory  (GDT),  the 
FRUSTUM  program  computes  the  polarization  radar  cross  sections  in 
dBsm  and  the  scattering  phases  in  increments  of  the  aspect  angle  for  a 
right-circular  cylinder. 

3.  Computer  Program  Operating  Environment 

a.  Computer 
HIS  6000 

b.  Source  Language 
FORTRAN  Y under  GCOS 

c.  Memory  Requirement 
24K  words 

d.  Typical  Processing  Time  Required 

0.0110  hours  (39*6  seconds) 

e.  Peripheral  Equipment  Requirement 

Four  disc  files  (file  codes:  07,  08,  09,  10) 
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Subroutines  Used 


Subroutines  obtained  from  SXSA  subroutine  file: 

UPDAT 

BESS 

GAM 

PLTGDT 

Subroutines  obtained  from  SXSB  subroutine  file: 
SPLN46 


4.  Inputs 

The  inputs  which  are  needed  for  the  executing  of  the  FRUSTUM 
program  are  as  follows: 

A1  - Smaller  radius  of  frustum  (inches) 

A 2 - Larger  radius  of  frustum  (inches) 

H - half  height  of  cylinder  (inches ) 

CLAM  - Wave  Length  (inches) 

DELAL  - Increment  of  aspect  angle  (degrees) 

ALMIN  - Minimum  aspect  angle  (degrees) 

ALMAX  - Maximum  aspect  angle  (degrees) 

AL  - Initial  aspect  angle  (degrees) 

BET  - Azimuth  bistatic  angle  (degrees) 

Input  Format 

The  above  inputs  are  entered  into  the  program  through 
NAMELIST  format.  The  mnemonic  variable  INPUT  is  used  as  the  NAME- 
LIST  name.  The  first  input  card  must  contain  a $ followed  by  INPUT 
(i.  e. , $INPUT).  After  the  $INPUT  the  data  items  must  follow  in  the  for- 
mat of: 

variable  1 name  = (value), 
variable  2 name  = (value). 


variable  n name  = (value)  $ 
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Each  data  item  must  be  separated  by  commas.  Following  the 
last  input  data  item  a $ must  be  present.  Refer  to  the  sample  job  stream. 
By  changing  the  above  inputs  the  user  can: 

o vary  the  radar  frequency  and  polarization  of  the  transmitting 
and  receiving  antennas, 

o vary  the  angle  at  which  the  target  is  viewed  (BISTATIC), 

o vary  the  size  of  the  frustum. 

5.  Output 

Output  from  the  FRUSTUM  program  first  contains  a listing  of 
the  input  data.  Secondly,  the  output  contains  a list  of  the  aspect  angle  (AL) 
at  each  increment  from  the  input  minimum  to  input  maximum  versus  the 
following  parameters: 

SV  - the  vertical  polarization  for  the  radar  cross  section  in 
dBsm. 

SH  - the  horizontal  polarization  for  the  radar  cross  section  in 
dBsm. 

THETAV  - scattered  phase  in  radians  of  the  vertical  polariza- 
tion. 

THETAH  - scattered  phase  in  radians  of  the  horizontal  polari- 
zation. 

Through  a call  to  the  subroutine  PLTGDT  four  data  files  are 
built.  Each  file  contains  the  data  of  one  of  the  above  listed  outputs.  That 
!•» 

file  07  contains  the  data  of  SV, 

file  08  contains  the  data  of  SH, 

file  09  contains  the  data  of  THETAV,  and 

file  10  contains  the  data  of  THETAH. 
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The  aspect  angle  (AL)  is  not  recorded  on  a separate  data  file. 
The  aspect  angle  can  be  easily  computed  for  the  above  data  by  using  the 
minimum  aspect  angle  and  the  increment  value  of  the  aspect  angle  both  of 
which  are  recorded  in  each  of  the  above  data  Hies.  That  is,  at  any  Nth 
increment  the  aspect  angle  is  equal  to  the  minimum  aspect  angle  plus  N 
times  the  increment  value. 


( FRUSTUM 


Figure  IV-5  Logic  Flow  Diagram  for  the  FRUSTUM  Program  (Page  1 of  2) 
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S I DENT  CLEARY, NEUFFER  , 65 1 2 1 1 04RADC 

S USERID  CLEARY STHREE 

S L0VL0AD 

S 0PTI0N  FORTRAN 

S SELECT  CLEARY /0FRUS 

$ SELECT  CLEARY /0XSA 

$ SELECT  CLEARY/0XSB 

$ EXECUTE 

S LIMITS  1 0, 24K, , 10K 

S PRMFL  07, W, L, CLEARY/ST0REI 

S PRMFL  08, W, L,CLEARY/ST0RE2 

S PRMFL  09 , V, L, CLEARY /ST0RE3 

S PRMFL  1O,W,L,CLEARY/ST0REA 

S DATA  05 

SINPUT 
A 1 =2 . 446, 

A2«3. 16, 

H»2.0315, 

CLAM=2. 0056, 

DELAL=0 . 1, 

ALMIN*0.0, 

ALMAX= 180.0, 

AL=0 . 0, 

BET= 10*25  $ 

S ENDJ0B 


Sample  Job  Stream  for  FRUSTUM  Program 


fOMM  Q_JJ  WHCVIOUt  EDITION  WILL  BE  U1ED 


HIS -6000  Batch  Submittal  Form 
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r»  non  nononna 


Tm  TTT  Or-21-TS  1I.7BB 


c 

c 


p*o«i!n  rtUstUH  (sr,ui) 

COfI(IOf/HH/Yt1>2iOO).TY2{  J000).»?3(2000), 


tonnoi/iAM/xt i l ixooi. TtJ( xoou ) .y* } * 

COMPLEX  IJ11,l)li.EJM.EJi4.EJl5iZJ16.EJX 

TimiiintiimnitJtii.iJiir.tTitTc.M.iitciMiMmriiiiT, 


yy4(2000),jx(2000),XX 

t.EJie.EjiMjno. 


iff; 


aSt9). vxr9). 9T *)*B* (’> ’!*(») ib‘ (*>• 


x usN.sav.ssM, 

l|U  bK»)*b2(  , 

X B7{9).B8(9)'.B0  tl),l10m.B11<|)/B12(l).BX(9).Sr(l) 
tAHXrXST/ZKPUTXA<.X2.K.CUn,Dtixt,XlMZM.Atn*X,XL,BEI 
1001  POIHATMH  »7bH.I> 
tw  Toiirfctmr 

2000  PolHAti 1M1,//^2/lBX,'ZXfW*S  • fUJStUH*, 
•?^//29X.*SHALkxl  liStVI  (7  PlflTOH  (AU  * 

' “ t“s 


►;//29x.*t.a*«i*  bsdzus  ov  tmxOx  Ia3> 
*/»29X.*MAir  XBZlKT  0»  PI0STUN  (Ml  “ 


» *,91“. 7, 
’•n*.7# 


•/// 29x.'XAVi  UNlTH  tf  t*iHx»  (et*"1  ■ ‘i918.7. 

ji  iwit*  tviij  if  bi'nibs  (Pilal)  ■ \rw\v, 

•7//29X.‘HXXXMVa  ssftct  AX0tX  zl  OBSXEIS  (ALnXXl  ■ S914.7, 
*7?/29X.‘MAXZMUH  JsflCT  tllll  gR  DIIIEXI  UlMAX)  • 


2001 


*///29X.*aSPBcT  AVSl|  XX  DkaiElS  (Al)  ■ '.914,7, 
‘7>/2jl,'B!»tAtic  Jk«ui  !l  OIONESS  (BIT)  » 
fOXIIAT  < 3X . • Al*  . 31 . • « V ( DB*li ) * . IX. * SH  t DBlII ) * » 2X. 


.7. /INI) 


NSW  r . 2x  . f Tflxt  AN  * /J ) 

2002  rotnATMx.r7,,2.lf2El,.2.0f2r8',S) 

2005  fOIHA9( IN  I 5x  A0pt;2x.iBU.7/lx.5x15,7/8x,4El5.778X.SBl5.7) 


TxfOT  i ViNlltir  i TlfOT 

Al  • SHAilll  lAOlOB  99  9IVITUH 
A2  - UBIIB  1(0X01  Of  IIQIfON 
H • MALE  Ng|«|T  09  PBPBfUH 
ClAN  - OAVIIiISTI  t XX$H|B ) 

MUU  XXCMEHXXT  ZX  ASPECt  AX«1e  (DEGREES) 
ICRZIh  WXWOTX  AllIC*  AlXtl  |SI0XXXS) 

AIM AX-  MAXIMUM  AlPSCt  ABOlE  SpXOlEES) 

At-  AlfECT  IXlLE  (DEUllS) 

Bit  « BZSTATZC  (Kill  (BXfiBlBSi 


1 RZAD(05.XXP0X. RXl-991) 

11X71(06.2000)  Ali A2.H.CHH.DIIAX. AIHXX, AlHAl, AtiBEI 

XZ  - 0 

VIBTA-O. 

(XV 2-0, 

■EH2*0» 

Bitci  m ,0j54*.0|3u 
IX-JT71  UtlOB 
Al  - ( A2-A1 ) /( I. IN ) 
t ■ ATAX(AI) 

OTR  - pz/ibo; 

Up  • no. yti 

IliAt  - DILAl*»ll 


00001000 
00001 0 1 Q 
0000102Q 
0000 103Q 
0000104Q 
000010SQ 
00001060 
00001070 
00001080 
0000109Q 
00001100 
00001 1 1 Q 
0000112Q 
00001 130 
00001140 
00001150 
00001180 
00001 170 
00001180 
oooonifl 
00001200 
0000121Q 
0000122Q 
00001230 
0000124Q 
0000125Q 
0000 1260 
0000127Q 
000012IQ 
0000129Q 
0000130Q 
00001310 
0000 1 3 JQ 
0000133Q 
0000134Q 
0000135Q 
0000136Q 
0000137Q 
00001380 
0000139Q 
0000140Q 
0000141Q 
0000142Q 
0000143Q 
0000144Q 
00001450 
OOOQ1460 

JC014TQ 

jeoiAiO 

000014|Q 

0000150Q 

00001510 
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imt  ii  oi.aiitr  it;t« 

IlHII  9 

IMaX  * UHiinil 

It  ■ hi  * Dti 

tl?"  il¥er  « DTI 

ex  - i2.*^i*co«(i*T/j*>i^et*n 

lid’ftri-iiT/l. 

e»t*-»I/2.  ♦ 1X172. 

txlSwx  • IfT/ft 

ei  - »i/j. 

C2  - fl/tt. 
ft!  ■ 2>CX*xl 

tr?T,ieiaj — 

es  ■ a.*ex*M 
e«  • cosift/ex^ 
tT  - SIX(PX/cX1) 

C|  - cottfx/evS) 

4^%*!  U7f  ^fiiilTnT7cTO ) 

en  *•  i i'./<c»»coi(|it2c*2ii) 

Cixset  - r.kkUoUkUosUir/i's 
liisei  • 2‘.btt2io9i«feoai«2t/2.i 
m • . 

It08l(r  - x«IXX»(ilill)>(2.»XXl*CO»(t*T/2.))) 

iszref  - moiffl* f T.T77tn 


UXXCH  - HlOBft*!  1.1/7, 1 ) 

UStOf  - c4-X*&L|Mef*.3'Bf> 
ilBIOI  - C1-X-|llXCH-.3aDt*  , . , 

e**0AD  ■ f *Cl4H*C0I<X)*t*XptX)**2in 


rniTT  eiiDimfict 

CILS2  p 10,*AlOG1CteXtSln 
CHOTI  - CEIS2 
CPIOT2  ■ CELI2 


ATTTTI  i 0‘.05*BTl  - 

AiUP  ■ O'.  1*DTX 
10  TO  93 
10  XX  ■ XX*1 

XT  (ABS(Al-AtBBGl) .IE.aTEITX)  AlBEGX  - AL 
If  (ABS(AL-ALBBGl) .tEnTEBU)  XXI  -,11 
XT  U»SUX.»AXSIO#5.l*ixmU)  AtSTO*  * Al 
tr  (*8S(AA-fclS»Of ) .i«.jtE«Tt>  1X2  • xx 
C 12  ■ e3*S lit*!) 

C 1 3 • C«**SlXfxX) 

Cli  ■ c3*COSifcA> 

Me  ■ PCltt 
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mjT  u WII.7!  ir.Tf# 


Ciihc  i«  eos(axc) 

IPIHC  - IXI(IHC) 

*j*c  m cmxtctilciinxe) 
llo  * e**costai> 

IT  TCU.  II,  Cirtcrl  *0  TO  20 

lTlki:  or.  CD  •§  to  20 

*18  f eJ*|i1*IBIT(»!> 

*1#  • (cVcXDMflfiil/'cKj 
lit  • ic»/e»2>**i*Tl|2>tx! 
ec»i«  - cn*ai 

tT  T H.  TO.  on  *6  TO  ^5 

Ccai*i  - 1,/UI ( Cli) 
teal*  * cc|i*i 

ir  ( cca1s*"cc|ilD  il.Jsjas 
15  teal*  ■ ccal** 

25  eoVTXVUl 

“ 615  ■ IQff tcca?*T 


tea212.*  fx'iJ 
*F  <|l.  fO.  5. 
tea2*1  ■ i./*x»(£t» 


\ lo  to  SI 


6ca2*  * cca2*1 
zr  ( cca2*3  - tcl2si>  si.95.as 
”35  eca2*  • cca2i2 
ui  oortzrqi 

tio  ■ 30*tlcea2sf 
OlDI*  ■ i. 

ealL  BBSS (ORDER.  C 12.  BS) 


Jal  * fr,7tcs-mui‘,«f*i|.*i 
eas  • H./lc**«ol((3.*Fii2>a 
B2SV  ■ Cl7*C20»((2l«elD 
tasH  ■ ci7*caot(e2ueiD 
lusv  ■ cit*clo#{e23*e1U 
>4sh  ■ cit*c20*(e2s*eiD 
INI  - ieiaici 
*Na  ■ -cia 
ins  • -ciaic: 

1HU  • -BHS 

BM5  • »1H2 

ZH6  • -C13«-Cj 


^enm 

U/»>))) 


*H7  • •SHE 
CsRH 1 > CoS ( BH 1 1 
pRSH«  ■ SXR(RhI) 
CsS«2  ■ C0SON2) 
BERMS  f SZr(IN2) 
CsBmS  - COSdHIJ 
SrRrS  * sTsfiRfl 
esiaa  ■ eosdN*) 
BRIM*  « SIR  (RED 
CSBHS  ■ COS(RMt) 
BRIMS  ■ SXR(INl) 
CSrMS  - COS(RMI) 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 


0 

0 

0 

0 

0 

0 

10 

30 


0 

0 

0 

0 

Q 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

00 

0 

g 

0 

0 

g 

0 

0 

0 

g 


IU214 


a 


r 


l«|N«  « IZM(iHI) 
tm?  • ces(»MT) 
ilINT  a IIItINT) 

— IJ12*cHFIx!e»*B2IIRlHT) 

Ul3PCNFU(ClRN3illl|im 

RJR5  • cXHXtelUS.fllHS! 

|j|6  - cH>x.xtci»l«.HaH6) 

Kji7  ■ cNvix(eiaV7,«vaHf) 


If  iki 
i»X0X1 

jb  (omi 


. IQ.  o))  SO  TO  3S 
■ C1»>C12 


B tORTXRUR 

Ihit  « 

firr  - mvt|ji5rx5iT;iBik*lJil*urr 
Irik  ■ i2ix*tjlsujUolu*Uis*iJiT 
Iv  ■lmvnii|Yi»iiiic 
in  -tiHSN+RRiNt*i(7ae 

lo  TO  50 

0 IT  (CIS,  IB.  CiRicll  00  TO  *0  . 

Hi  ■ ^c7*soaf?I]/IitlUtJ*cBTTl7crT 
IIS  - (C#*fOai*A  l/<|IllltJ*C«)»>/CR2 

127  ■ 1./(C|ieoa  l3«*#X*2V*al)|cR2)) 

III  * !./(e«;c6STtfl-2.nil/eH>) 


20  ST  (CIS.  L|.  ci*lc?t  SO  TO  “0 
m ■ tcT*5oat?I]/|l!ll 

125  - (C#**0aX*A  l/<«Tg<itf*CR)i)/CR2 

i2i  - i.?(ceicl5  I 

127  ■ 1,/(C|ieoa  j3**#X*5l*aU2cR2)) 

Ha  * i./ce65c6sttfx-2.»iti/eH)» 

irJki'.  it’.  *)  oj  toiqi _ 

i oi Ti9  » t.7t ciii8itt"frti4,ki j >ei arr 

00  TO  103 

101  129  * 1./(cl*e6Sft3**fxl2l*it)26V2n 
103  CortXruc 

ailsv  m c2U*tc##ic101 

as^sR  • c2u*lciiicil) 

IIHV  s 

9*234  ■ c2S*fc2Tlcl’M 

:133V  ■ C24* (elite  1 0 ) 

issM  - c2k*(caiici0) 

I94SV  - C23*tC2*iC111 


l*4SN  ■ e25Mc29*e11> 

TFTXXSCiin  TlifniB 

IS  9*1*7  ■ o. 

ISiSH  - 0. 

75  iriftl-CAlX)  |5. if 5. 175 
•5  ajjSY  - 0. 

IS23M  - 0. 

— rvt  nursc*i3i  in. f is; los 

1(5  ISJSV  a 0. 

IS3SM  • 0. 

119  zrUL-cilSl  131.135,125 
129  IfiSl-cKUl  ibl.i33.il3 

1(9  9S«SV  m n. 


00002(70 
00002510 
00002(90 
00002700 
00002710 
000Q272B  ~ 
0000273Q 
00002750 
000027SO 
000027IQ 
00002770 
000027  Hr 
00002790 
OOOOllOfl 
00002(10 
00002|10 
00002(30 
-00002110 
00002(50 
0000299Q 
0000297Q 
0000299Q 
0000299Q 
00002 »0| 
00002910 
00002920 
0000293Q 
00002(40 
00002950 
00002(00 
0000297Q 
0000299Q 
00002(90 
00003000 
0000301Q 
00003020 

00003030 

00003040 

0000305Q 

00003010 

00003070 
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TfimriRliTT  Tt.T|* 


US 


|f ASM  a 0. 

cortxroi 

iis  ■ •(eu»cil)lcs 
feft  * ■(eu-eii)«c2 

M 1 0*  t C 1 J»cl| ) «ic|~ 
BNii»icij*cif )«c§ 
ClIRt  f eOS(IRI) 
SRlNf  a IZR(RM|) 
tllll  * eOKIRf) 
•■■Ho  ■ fZR(IMa) 

• ■■HU  ■ SIR 

JUKI  • CDS 
■■Hi 1 ■ flR 
IJ»!  ■ cHVtX 


aw — 

MU) 

MU) 

•Nil) 

elRl«*VRM|) 


fJIU^  ■ cMl*Te*l"19»ift*10) 


•j*ii  - emxitsfNil.siMli) 

|«flsafH1|gll*RfSSH«|JI10*»SSM#lj|11)*|jfc 


IV  ■♦M1IV*iJ| 

IR 

lo  to  SO 
»0  |30  * ici/eV]ltilitUI>e(! 
— ten ii  - «ma  — 


it  (W.  eq'.  fxi  lo  fb  ill 

Cc»u«i  - r.X«xl(|i) 

SrtceROia-cciOlit  iis.isi;ifi 

US  CPUS  - CCAUS2 

— urnifim — — — 

131  • SORT  t CCftVSf 
032  • Ck«A)*IDiirn) 

•ROM  • 1. 

Ml  RRSf ( oROIl*  dll 


93? 
-Mil 
•hu  ■ 
RmIh  > 
•his  ■ 
eiixi] 

• RIH12 
CflRIS 
•■*H 1 S 
CllHItt 
limit 
«R*H1S 


Bf ) 


BS 

•CT 

•eii*C2 
*l»i) 

C14 

COStMlj 
SZRIIR 
COStll1 ... 
SIXlMlft) 


Hi) 

111) 

Ml) 


BZRi 

cosuiii 

bzhIRri 


■ ch#lx(ciIri2isrRr12) 

BJBl)  ■ CHrLX(CsfH1|*SHM<3) 
IJIU  ■ eH»tX(MlRl|.SRIRl«) 
SJR19  a CHPLX(cllHl9tSRINl5) 

esxoxi  a O'.  5 

lr  in',  bo'.  M lo  to  us 


oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

~000Q 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 


to 

>0 

00 

0 

!! 

ts 

0 

0 

lO 

0 


a: 


3' 

a; 

32 

31 

3! 

3< 

31 

31 

3 

40 
4 ' 
*2 

4 
It 

u 

4' 

•I 

4 

so 

5- 

52 

52 

SI 

5! 

51 

51 

51 


fi 

0 

0 

Q 

0 

0 

9 
fi 
fi 
0 
0 
0 
IQ 

to 

to 

10 
0 
9 
0 
0 
0 
fi 
0 
fi 
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itlffR' 


Til JT  IT  OlflliTT  itTH* 


61x0x3  - C3J/C*3 
i«8  contxmui  . . 

— ■?§ia*cixpxitijM3>»jgti»ci6tTiT  *c  ttiNiiMifnuiTiiim 
x (uie) 

10  TO  50 

10  ire  ■ covjsdTl 
OlTMTdTC 

*«CfC0»0«l*H!  

•■*■11**16 


kNV1nT*V2{AXlUaTSTt.|litflTn 
CALL  17*d*T(*NT  1,1X71.  ft,  TfxTATf 
INN  1" AT AN  2 ( Ax Kill  8 NT* l| A* TIN ) ) 

till  vfDtfiMiM.iiniMx'.flit|iI 

ntit  - ttiijH  ) 

I ill M ■ iBXirtlg) 


l«lST1«lliLlT*l|fic1 
1*1812  - 10. * AfcOfi 10ll*tlTt) 

•llSNI  - l|ALSN*l|le1 

I81SH2  ■ 10.*Alo|10Tm*Nl) 

U*ITt«U 

m«  r*.2co2i  iii  hist  I.  ixtm.  tkiiat.  thtai 

tri(XX)  * IIIIT2 
tT2(«)  - •11182 
ITS(XX)  - THITJ7 
TTfifrri  ■ TKITIK 
Ixixi)  ■ U 

If  - AL*BTft  ~ 

It  (AIS(AL-AtltOl).OT.AtllTlt  00  TO  300 
tc  ■ XXI 
Cel  ■ ALIHN 

ft  » • 

|C2  ■ XX2.3 

n»uif 

»0  301  X ■ 1.1 
ixtxi  - CC1*ITi 
1T(XI«  TTI(IC) 

CT  I)  ■ Tf2(Xe* 

Otix)  - TT3 ( XCl 
— TTTTT  S^TUTK* 

1C  • XC*1 
cel  • Aiu#*cei 
301  COVTXIUI 

BXtS)  - (»x/2.kxT*i*0 

IT  Si*  C*lOT 1 
ertn  * citoT2 
DO  302  X - 1*1 
■xtXl  ■ CC2*lfl 
1T(Z»>  TX 1 ( XC2t> 

Crlxl  ■ trades) 

DTtZl  ■ YX3(XC2) 


0000310Q 

00003*10 

00003*20 

0000313Q 

00003110 

0000315Q 
0000 J11Q 
OOOOSITfi 
00003HQ 
0000311Q 
"00003700 
00003719 
00003720 
00003730 
00003710 
00003730 

— -oooomo 

00003779 

00003710 

000037*9 

00003*00 

00003* IQ 

00903*1* 

00003130 

00003MQ 

00003*80 

00003110 

0000317Q 

000031*0 

000031*0 

0000310Q 

00003910 

00003120 

00003*30 

oooomo 

00003950 

000031*0 

00003*70 

009039IQ 

00003990 

00001000 

0000101Q 

00001020 

00001030 

JC0104Q 

00001030 

00001010 

00001070 

000QU010 

0000109Q 

OOOOHOQ 

oooomo 
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7i¥jT  11  iviii-n  n.m 


»tUi  • n«(*caj 
XC2  ■ !ca«1 
tea  ■ cca«t»> 
3°*  comtv* 

*Tt31  • tfi 
IT  1 51  • (BY(*)»B 

e st  (ziBxe.iQ.oi 

e vbztb 

au  st 


ittfsr 

(•D/a: 


to  sis 

to.aooi)  (fci(to). ieii.ft;  (|T(too) .xoci.f ) 

tt  • UBftB  • BTf 

till  MIBB*  tO.Xt.Yi.BX'.Bi.Bi.|i«B3*S< 


.bJ) 

Vi* 1 


till  Billet  tO.ll.TM.BX.ll.lf.lTtll.Bll 
till  BilBBt  (O.X#.Y#3.BX.BT.Bf.B10.BH.Bl2) 
tCCCl*DBlAl*ITB 

io  30]  z » xxi'.xla 

till  BilBBt  (1.xl.Yf.BX;Bt.B».lliBa.BJ) 

rid  iMni  n:xf.YtTtBX.ET.Bf:ii.is,t«) 

till  BilBBt  (1.Xf.T#2.BX.iT.B|.BT«Bt.B9) 
|lU  BilBBt  |1'.xf.Tt3.BX.iT.Bf.B10.B11.|12) 
jxjx)  i Xf 
trllf)  - Ti 
tTl(X)  ■ Til 
miit  * Yfa  ~ 

TTB(X)  - TBS 
If  • ii«eccCT 
)03  lOBTSBOS 
U - iiirof 

>00  IXBOX-XX 

— n-minmu  die 

tr  iti.uiui  loiio.aoo 
300  em  flTBOT 
•0  TO  1 
#1  eoBTZBOB 

•iXTBtt. 30011 

— timr  • o: 

fMBTlB  • 0. 

•o  TO  10 
•BO  eOBTXBUB 

SfOi 
BO 
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0000B13Q 
0000B13Q 
0000*1*0 
0000B1SQ 
0000* 1*0 
0000B17Q 
0000*1*0 
OOOOB1|0 
0000*200 
0000*210 
0000*220 
0000*23Q 
0000*2*0 
0000*2*0 
OOOOBStQ 
0000*27q 
000012*0 
0000*210 
0000B30Q 
0000B31Q 
0000*320 
0000*330 
0000*3*0 
0000*350 
0000*3t0 
0000*370 
0000*3*0 
0000*390 

OOOObbOQ 

OOOOttBlO 

0000**30 

0000**30 

oooo«*«o 

0000**50 
0000«««Q 
0000**70 
0000*«BO 
0000**90 
0000B50Q 
0000*5  IQ 


M. 


Sample  Input  for  the  FRUSTUM  Program  as  Output 


- 1 ^ ■ ■ ■ w 1* » ■ »»*  _____  - - . . 

I*frUT»  ■ FHUJMJ" 

smaller  radius  or  prustum  c ai»  * 2.4460000 

LARGE*  RADIUS  Of  FRUSTUM  <A2)a  s.moooo 

HALT  HEIGHT  or  FRUSTUM  (H)  » 2,0315000 

HAVE  LENGTH  IN  INCHES  (CLAN)  i 270051000 

INCREMENT  IN  ASPECT  ANGLE  IN  DEGREES  (DELAL ) ■ 0.1000000 

HtNIHUM  ASPECT  ANGLE  IN  DEGREES  (*L*I*I  * 0, 

MAXIMUM  ASPECT  ANGLE  IN  DEGREES  (AL^AX)  a 160,0000000 

ASPECT  ANGLE  IN  DEGREES  < Al ) • Oj 

BISTATIC  ANGLE  IN  DEGRESS  (BET)  a 10.2500000 


I 


Sample  Output  for  the  FRUSTUM  Program 


a 


IV -221 


ti  svrotSMj  sxc98sn)  thEtav  thetam 


o.  -i.5<ie 
0.19-1.30E 


o.to 

o.so 

ov«« 

0.90 

0.00 

0.70 


P0*t.?l6  00 
00-1.2.15  UO 


•1.796 

■1.759 


-1.935 

•1.939 


1 .506  O0-1.19E-O0 1.756 1.943 

1.516  no-1. HE  00  -1.753  -1.947 
1.516  9**tvttt  00  -17756  -1.951 
1.52E  O0-1.17E  00  -1.750  -1.994 
1 . 5 3f  00-1.176  00  -1.-749  -1.958 
1.546  no-l.l7E  00  -1.748  -1.961 


0.80 

0.90 

1.00 

1.10 

1.20 

1,30 


1.996 

1.56E 

1.576 

1.596 

1.61E 

1.636 


00-1.176  00 — -1.746 
no-1.18E  00 
no-1 .18=  oo 
00-1. 19E  00 
nfl-1 . 20E  00 


1.748 — -1 . 963' 
1.745  -1.966 

11743  -1.968 

1.742  -1.971 

1.740  -1,973 

O0-1.21E  00  -1.738  -1.974 


TTTTT 

1.50 

1.60 

1.70 

1.80 

1.90 


T'.'89E  0 0-1.236  00 — -1.737 — =T79T« 
1.676  PQ-1.24E  00  -1.735  -1.977 
1.69E  no-i.26E  uO  -17733  -1.978 
1.726  O0-1.28E  00  -1.731  -1.979 
1.756  nQ-1.3QE  00  -1.729  -1.980 
1.77E  OQ-1. 33E  00  -1.727  -1.980 


i'.'SOE  no-l.Jft^oO — -IT 775 — -1.980 
1.846  00-1.396  00  -1.723  -1.980 
1.87E  00-1.42E  00  -1.721  -1.980 
1.91E  no-1.455  00  -1.719  -1.979 
■T.99E  no-l,49E  00  -17716  -1.979 
1.986  O0-1.53E  00  -1.714  -1.978 


■77rnr 

2.10 

2720 

2,30 

2740 

2.50 


2760 
2.70 
2780 
2.90 
7T.  00 
3,10 


7.  0 2fc  nO-1.57FinJ — -1. 717' 
2.06E  O0-1.615  00  -1.7  i9 

2.  HE  njr-1 . 66E  00  - 1 7 Tij 7 

2.15E  0Q-1.71E  00  -1.7,4 

2720E  00-1.76=  00  -177^2 

2.25E  no-1.8lE  00  -1.699 


*2 


876  UO 
92E  00 
9BE  00 
05E  00 
11E  00 
18E  00 


37E  00 
476  00 
57E  00 
68E  00 
78E  00 
89E  00 
OLE  00 


=1.976 

‘1.975 

‘1.973 

‘1.971 

•1.969 

■1.967 

•1.954 

‘1.961 

•1.958 

■1.954 

•1.950 

*1.946 

‘1.942 

*1.937 

*i;933 

*1.927 

*1.922 

■1.916 

■I79ir 

•1.9o4 

-1.897 

-1.890 

-1.883 

-1.876 


-1.859 

-1.851 

-1.842 

-1.833 

iv-222 

-1.8o3 


yv 


5, B0-4.Z«E  T0-4.1ZE  00 
5.96-4.34E  C0-4.Z4E  (JO 

6. C0-4.45E  P0-4.36f  JO 

6 . l6"4 , 55E  n()-4.47E  00 
8.28"4;66E  (HT 

6.30- 4.776  no-4.726  ()0 
6.48-4.886  00-4 . 548  00 

6.50-5.00E  O0-4.07E 
6. 60-5. HE  no 
6.78-5.23E  no 

- 6.88-5.396  n(T 
6.90-5.4BE  no 
7.00-5.60E  no 

7.10-5.73E  no 
7.20-5.86E  nfl 

7.30- 6. OOE  no 
— 7v«0*6. 136^m 


7.50-6.Z7E  no 
7.60-6.41E  HQ 
7.70-6.56E  Ofl 
7.B0-6.71E  n0 
7,tO-6.86E  HQ 


JO 

■5 . Of?  00 
9. 22E  00 
■5.356  00- 
9.48E  00 
5.61E  00 
5.74E  00 
5.S7E  00 
6.01E  00 
6.145  38 
6.28=  JO 
6.4ZE  00 
6.55E  00 
-6.59=  GO 
-6.B3E  UO 


"B.OO-J.Olfc  HO -6.972  OTT"  - 


-1.611 

-1 . 6u7 

*1 . 6o3 

-1.599 

-i;9+5- 

-1.592 

-1.588 

-1.584 

-1.580 

-1.576 

-1.572- 

-1.567 

-1.563 

-1.559 

-1.555 

-1.551 

-1799T- 

-1.543 

-1.539 

-1.535 

-1.531 

-1.527 


-17792 
-1.781 
*1.-769 
-1.757 
"1.744- 
-1.731 
"1. 7i8 
-1.705 
"17892 
-1.678 
"1.664- 
-1.650 
-1.635 
-1.620 
-1.605 
-1,590 
-1.-574* 
-1.558 
-1.542 
-1.525 
-1.500 
-1.491 


8.10-7.176  no-7. 11=  00 
8.20*7. 32E  hq-7. 25=  00 

8,30-7.496  00-7. 39E  00 
8.83*7, 68E  nQ-7 . 54E  00 


8.70-8.176  00-7.97= 


9.0P-8.71E  00-6-41? 

9.10-8.90E  no-8*»5E 


-1.519 
-i;5i5 
-1.511 
-1.5:7 
1 . 5 u 3 


-1.457 

-1.439 

-1.421 

-1.403 

-1.385 


9.30-9.2JE  ''Q-9.92E 
9.40-9.37E  n 0“ 1 • 3 ^ E 

9.50-9.536  no-1.32E 

9.60-9.706  no-i • 03= 
9,70-9. 88E  P0-1.04E 
'9T18iTnn'F  01-1.35=  01 
9.90-1. 02E  ni-1.37= 
10.00-1.04E  '1-1.38= 


10.30-1.10F  n-1.12E 

-18  rrr^iTi^r-T- 1 . T4= 

10.50-1.146  01-1.15= 

10.60-1. 17E  r.i-1.176 


11.10-1.2»E  o 1“1 • 25= 
11.20-1.316  ni-l.26= 


11.60-1.42E  Cl- 


-I7T<r8 

~^T73*r 

UO 

-1.494 

-1.348 

00 

-1.-490 

-1.329 

00 

-1.486 

-1.310 

30 

-1.482 

-1.291 

00 

-1.478 

-1.271 

tm — 

'*17334- 

JO 

-1.478 

-1.320 

01 

-1.476 

-1 . 3 i.i  7 

ol 

-1.474 

-1.293 

01 

-1.473 

-1.280 

01 

-1.471 

-1.266 

01  ' 

--I.459 

-17253 

01 

-1 . 468 

-1.239 

31 

-1 . 466 

-1.226 

01 

-1 . 465 

-1.213 

01 

-1.464 

-1.199 

Jl 

-1.463 

-1.186 

-13  462 

~*i;i73 

01 

-1.462 

-1.160 

01 

-1.461 

-1.147 

01 

-1.461 

-1.134 

01 

-1.461 

-1.121 

01 

-1.461 

-1.10« 

01 

-17462 

-1TU96 

01 

-1.463 

-1.084 

01 

-1.464 

-1.072 

ol 

-1.465 

-1.059 

01 

-1.467 

-1.047 

01 

-1.470 

-1.036 

U1 

-1.472 

-1.024 

IV-223 


I 


17. 70- 2. DOE  nl-2. 06E  01  -3r3ll  -3.370 

17.00- i.99g  n1-2.03E  01  -3.314  -3.360 

I7.0t»-1.9«E  01-1.99*  01  -37317  -37366 

18.06-1.97E  ni-i.97E  01  -3.3l9  -3.303 

16. 10-1 . 95g  ni-i . 946  oi — -3,'3g0 trW — 

18.20- 1.94E  oi-i. »1E  01  -3.321  -3.387 

t8.38-l.94g  "i-i. 8tg  oi  -St 321  -3.393 

18.40- 1. 93E  01-1.B7E  01  -3.321  -3.390 

t8.90-t.9?g  ni-i.t9E  01  -3.320  -3.346 

18.60- 1.91E  Oi-i. 93E  ol  -3.319  -3.342 

16.76-1. 90g-  fti-1.61*  oi — -3.319 — -3.339 

18.80- 1.9OE  ni-i.79E  Jl  -3.316  -3.333 

18.90- 1.89E  01-1.77E  oi  -3.314  -3.329 

19.00- 1.89E  01-1.76E  Jl  -3.312  -3.324 

19.10-1.88E  01-1.79E  01  -37309  -3.319 

19.28-1. 8BE  ni-i.73E  01  -3.3o6  -3.3l9 

19.-30-1. 89E  ni-1.926  ui — -3.3i3-  n/SlP 

19.40- 1.07e  ni-i.7iE  ol  -3.300  -3.3o9 

I9.-9O-1.07E  01-1.7:E  01  -3.297  -3.300 

19.60- 1.87E  Oi-i. 69E  01  -3.294  -3.295 

19.70- 1. 8 7E  ni-1.68E  01  -37290  -37290 

19.80- 1.0AE  Oi-i. 08E  01  -3.286  -3.205 

19790-1. 88E  01-1.675  Jl — -1.282 — -3.2H0 

20.00- l.86E  01-1.67E  01  -3.279  -3.275 

~23.TB-1.06E  ri-l.06E  01  -1.275  -37270 

20.20- l.86E  oi-i, 66E  01  -3.270  -3.265 

20730-1. 07E  ri-l.S0E  oi  -37266  -37260 

20.40- 1.07E  01-1. 45E  01  -3.262  -3.255 

20  750-1 . 07fc  Tiy-i , 55E  01 — -3.258 — -3.249 

20.60- 1.07E  01-1.65E  01  -3.254  -3.244 

2D.70-r.88E  Oi-l. 65E  01  -3.249  -3.239 

20.80- i.80E  oi-i. 65E  01  -3.245  -3.234 

20.90- 1.08E  ni-i.60f  oi  -37241  -37229  - 

21.00- l.89E  T-1.46E  01  -3.237  -3.224 


21.20-1. 90E  oi- 
21.30-1.90E  ri' 

2l.40-l.91E  "1' 
2l.Mn.62E  OI- 

2l.60-l.92E  oi- 


cx  • f •-  JL 

21.80-1. 94E  Oi- 
21.90-1.95E  n- 

22.00-l.96E  01- 
22.10-1.96E  01- 

22.20-l.97E  'll- 


•1.67E  01 
■1.57E  01 
-1.68E  Ol 
T.685  01 
T . 69E  01 


JL  • r v»  U 4 

•1.71E  01 
■1.72E  01 
•1.735  01 
•1.74*  oi 
•1.75E  01 


23,00*2. l5g  01- 
23.70-2. 16E  OX- 
23.  t0»2.lte  nv 
23.00-2. l’E  nx- 


24.10-2.23E  01- 
24.TW.24f  OX- 

24. 50- 2.2&E  ox- 
24.  40-2. 2«E  ox- 

24.50- 2.30E  Ox- 


24. 70-2. 33E  OX- 

24. 00- 2. 39E  Oi- 

24 » 00-2 . 37E  nx- 

25.00- 2.3’E  ox- 
25.10-2. 41E  nx- 


jy; 


25.30-2. 44E  nx 

25.40- 2. 46E  Ox 
25.50-2.48E  nx 

25.40- 2.5OE  fix 
25.70-2. 52E  OX 


-2.03E  01 
-2.05E  OX 
■2.8tt  OX 
-2.UE  01 


-2.10E  OX 
‘2.222  OX 
-2.26E  01 
-2.3i2  01 
-2.34E  01 


-2.43E  OX 
•2. 482  01 
-2.53E  01 
-2.59E  01 
-2.55E  01 


-2.702  01 
-2.B5E  01 
-2.93E  01 
•3.01E  01 
-3.09E  01 


25,90-2.552  fif 
26.00-2. 57E  fil- 
26.iO-2.59E  ni- 
2 6 720-2. 6 (JE  fix- 
26.30-2.  62E  nx- 


3.27E  01 
3.372  01 
3.46E  01 
3. 53=  01 
3.59E  01 


<■*£! 


27.10- 2. 71E  PX-3.2JE  OX  -3.612 

27.10- 2. 72E  H1-3.13E  ol  -3.636 
27,30-2. 72E  nx-3.06E  Ul  -3.661 

27,40-2.732  nx-S.O'iE  01  -3.685 

27.50-2.73E  r'1-2.?4E  ul  -3.7.;9 


i I , BU-<  . / JC  II  l-^.SYC  Ul 

27.70- 2.732  01-2.942  01  - 

27 ,80-2 . 732  ni-2.5”E  01  - 

27.00- 2. 73R  "X-2.76E  ol  - 

28.00- 2. 73E  ni-2.72?  ol  - 
28.1Q-2. 73E  QX-2.&9E  Ol  -! 

28 ! 30-2 ! 72E  n X - 2 ! 6 3 E Ol  -3.878 

28.40- 2.71E  "1-2. 5CE  01  -3.895 

28.50- 2. 71E  0X-2.58E  01  -3.«U 

28.40- 2.702  01-2.55E  01  -3.926 

28.70- 2.70E  nx-2.53E  ul  -3.940 
28.' 80 "2. 6*?  ni-2.52r* £JT~  -37957 
28.90-2.68E  01-2. 5'6  Ul  -3.964 

29.00- 2.67E  HX-2.492  01  -3.974 

29.10-2.67E  nx-2. 47E  01  -3.984 

29.20-2. 66E  01-2. 46E  01  -3.992 

29.30-2.65E  01-2.45E  Jl  -3.999 

29.40- 2.64E  0X-2.45E  ol  -4.»»j0 

29.50- 2. 64E  01-2.446  Ol  -4.011 


29,60-2. 63E 

ni-2. 43E 

01 

-4.015 

-5.365 

29,70-2. 62E 

01-2. 43E 

01 

-4.019 

-5.355 

2* •IJ"? • 61c 

01-2 . 43E 

01 

*4 ,*21 

"5 1 345 

29.90-2.01E 

01-2.43E 

01 

-4.023 

-5.334 

fll"2 . 43C 

vrr 

"4,024 

—5 . *23 

30.lO-2.59E 

01-2. 43E 

01 

-4.n24 

-5.311 

30 .20*2 . 9“E 

^1*2  • 43f 

01 

-4 , 023 

■5 , 298 

30.30-2. 5«E 

01-2. 44E 

ol 

-4.022 

-5.285 

30  * 40*2 . 57E 

ni-2. 44E 

01 

-4 . 020 

-5 .271 

30.50-2. 5?E 

01-2. 45E 

01 

-4.017 

-5.256 

usf 

u>vmi4 

via 

-4,013 

*5".  241 

30.70-2.56E 

01-2. 47E 

01 

-4 . 009 

-5.225 

30 ,80-2 .53E 

01-2. 48E 

01 

“4,004 

-57207 

30.90-2.55E 

01-2. 49E 

01 

-3.999 

-5.189 

31 . 00-2 . 5<E 

01-2.31E 

01 

"3 • 993 

-5,170 

31.10-2. 54E 

01-2.52E 

01 

-3.980 

-5.150 

■ > rMU'fl-Nl 

RV  1 

-3 . 979 

-5~i  1 ?9 

31,30-2. 53E 

01-2. 56E 

01 

-3.972 

-5,107 

31.40-2. 53E 

rl-2 . 50E 

ol 

-3.964 

-5 . 083 

31.50-2.52E 

oi-2. 60E 

01 

-3.955 

-5.058 

31.60-2. 5ZE 

01-2. 52E 

01 

-3.947 

-5 . 031 

31,70-2. 52E 

01-2. 64E 

ul 

-3.937 

-5.003 

— 1 1 1 1 III  II  1 1 1 

n nil  i 

-TV  972 

3l.0O-2.51E 

01-2. 69E 

01 

-3.917 

-4.940 

32.00-2.51E 

01-2. 72E 

01 

- 3 . 9 0 7 

-4;9o5 

32.10-2.5lE 

01-2. 75E 

01 

-3.890 

-4.868 

32.20-2.5TJE 

H1-Z.7BE  01 

-3 . 085 

-4 , 828 

32.30-2. 50E 

01-2.91= 

01 

-3.873 

-4.705 

umuii 

ILS-vt 

-3.862 

-4 ,738 

32.50-2.50E 

01-2. 97E 

01 

-3.850 

-4.688 

32.00-2. 50E 

H1-2.9UE 

01 

- J , 83  7 

-4 , 634 

32.70-2.50E 

01-2. 93E 

01 

-3.825 

-4.576 

32  » 00-2 . 50E 

Pl-2 . 905 

01 

-3.8l2 

“4  ,'3l3 

32.90-2. 50E 

01-2. 99E 

01 

-3.799 

-4.445 

■ 1 III M II  1 1 1 

l!U 

-3.785 

" 4 v 373 

33.10-2.50E 

01-3. 34= 

ol 

-3.772 

-4.296 

33.20-2.50E 

01-3. D7E 

01 

-3-758 

-4.21 4 

33.30-2.50E 

ni-3. 38= 

01 

-3.744 

-4.129 

33«  48*2 1 50E 

01-3. 09E 

ni 

~3 . 730 

-4,040 

33.50-2. 5UE 

01-3. lrE 

01 

-3.716 

-3.950 

nl~3 . 1 !E- 

LU 

*■  3 • 7fj  2 

" 3 • 8*5  0 

33.70-2.50E 

01-3. 10E 

Ul 

-3.607 

-3.767 

33.'B0-2.53E 

oi-3. 39E 

ni 

-3.673 

-3.677 

33.90-2.50E 

01-3. 07E 

01 

-3.658 

-3.590 

34  * u 0 ** 2 • 5^E 

oi-3 . 35E 

01 

"3,643 

" 3 • 5 0 6 

34.10-2.50E 

o 1 - 3 . 0 3 E 

01 

-3.629 

-3.426 

M III  1 14  II  1 1 ■ 

iuunu-1 

mr 

" 3 • 6 1 4 

*5v35ir  ~ — 

34.30-2.50E 

0 1 - 2 . ? 7 E 

01 

-3.599 

-3.280 

34.40-2.50E 

oi-2. 94E 

31 

-3.584 

-3.2l5 

34. 50-2. 5 'IE 

01-2. 9.i E 

Jl 

-3.569 

-3.154 

34,60-2. 5n£ 

01~2 . 97E 

01 

-3.554 

-3 . 097 

34.70-2.51E 

01-2. 94E 

01 

-3.540 

-3.044 

31*  .0O~2 . 5iE 

TTT' 

-3  • 5<;5 

=27995 

34.90-2.51E 

01-2. 77E 

01 

-3.510 

-2.950 

35,00-2. 31E 

01-2. 74E 

01 

-3.490 

-2; 900 

35.10-2.51E 

rl-2. 7iE 

01 

-3.401 

"2.869 

35.20-2. 51E 

01-2. 58E 

01 

-4 • ,6 / 

-2.B33  IV -227 

35.30-2.51E 

oi-2. 65E 

ol 

-3.452 

-2.799 

35.40-2.52E 

01-2.62= 

01 

-3.438 

-2.767 

35.50-2.52E  rrj-2 . 01 
35,60-2 . 52E  H-2.57E  01 
35,70-2. 52E  P1-2.55E  01 
35.80-2.52E  01-2. 53E  ul 


36.00-2. 53E  ni-2.48E  01 
36.10-2.53E  H1-2.47E  01 
36.20-2.53E  01-2. 45E  01 
36 . 30*2 .53E  P1-2.43E  01 
36.40-2.54E  01-2. 42E  01 


>li: 


36,60' 
36.-70- 
36. BO- 

36. 00- 

37.00- 
37711 V 

37.20- 

37.30- 

37.40- 

37.50- 

37,60- 


■2.54E 

•2.54E 

‘2.55E 

-2.55E 

■2.55E 

;2.55E 

•2.56E 

-2.56E 

■2.56E 

•2.56E 

-2.57E 


nl-2 . 39E  01 
01-2.38E  01 
01-2.36E  01 
01-2.35E  01 
01-2. 35E  01 
01-2 . J4E  0 l 
01-2. 33E  01 
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8.652 

"1“Z . 4os 

01 

8.666 

108. 00-2. 92E 
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01-2. 83E 

ul 

7.490 

7 , 2 0 7 r^-240 

112. 68-2. 76E 
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114.40- 2. 


696-  oj-2 
68E  01-2. 
686  "1-2. 
67E  ni-2 . 
676  01-2. 
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9.086 
9.155  ' 
9.126 
97147 
9.167 
9 7187 
9 . 2 1 j 8 
9.228 
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•2.86E 
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FRUSTUM-CYLINDER  Program 


1.  Introduction 

The  FRUSTUM-CYLINDER  program  was  originally  developed 
under  Contract  AF30  (602)-67-C-0074  for  RADC  by  Cornell  Aeronautical 
Laboratory,  Inc. , under  subcontract  to  the  Fort  Worth  Division  of  General 
Dynamics.  Related  information  pertaining  to  this  program  can  be  found 
in  the  program  GDT03  documentation  produced  by  General  Dynamics.  The 
theory  is  described  in  RADC-TR-68-340,  "Investigation  of  Scattering 
Principles  - Volume  III  - Analytical  Investigation",  May  1969. 

2.  Abstract 

Based  on  the  Geometrical  Diffraction  Theory  (GDT),  the 
FRUSTUM -CYLINDER  program  computes  the  polarization  radar  cross 
sections  in  dBsm  and  the  scattering  phases  in  increments  of  the  aspect 
angle  for  a right-circular  frustum-cylinder. 

3.  Computer  Program  Operating  Environment 

a.  Computer 
HES  6000 

b.  Source  Language 
FORTRAN  Y under  GCOS 

c.  Memory  Requirement 
25K  words 

d.  Typical  Processing  Time  Required 
0.0123  hours  (44.28  seconds) 

e*  Peripheral  Equipment  Requirement 

Four  disc  files  (file  codes:  07,  08,  09,  10) 
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f.  Subroutines  Used 

Subroutines  obtained  from  SXSA  subroutine  file: 

UPDAT 

BESS 

GAM 

PLTGDT 

Subroutines  obtained  from  SXSB  subroutine  file: 

SPLN46 

4.  Inputs 

The  inputs  which  are  needed  for  the  executing  of  the  FRUSTUM 
CYLINDER  program  are  as  follows: 

A1  - Smaller  radius  of  frustum  (inches) 

A2  - Larger  radius  of  frustum  (inches) 

HI  - Pall  height  of  frustum  (inches) 

H2  - Full  height  of  cylinder  (inches) 

CLAM  - Wave  Length  (inches) 

DELAL  - Increment  of  aspect  angle  (degrees) 

ALMIN  - Minimum  aspect  angle  (degrees) 

ALMAX  - Maximum  aspect  angle  (degrees) 

AL  - Initial  aspect  angle  (degrees) 

BET  - Azimuth  bistatic  angle  (degrees) 

Input  Format 

The  above  inputs  are  entered  into  the  program  through  the 
NAMELIST  format.  The  mnemonic  variable  INPUT  is  used  as  the  NAME- 
LIST  name.  The  first  input  card  must  contain  a $ followed  by  INPUT  (i.  e. 
$INPUT).  After  the  $INPUT  the  data  items  must  follow  in  the  format  of: 
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variable  1 name  = (value), 
variable  2 name  = (value), 

• 

variable  n name  = (value)  $ 

Each  data  item  must  be  separated  by  commas.  Following  the 
last  input  data  item  a $ must  be  present.  Refer  to  the  sample  job  stream. 
By  changing  the  above  inputs  the  user  can: 

o vary  the  radar  frequency  and  polarization  of  the  transmitting 
and  receiving  antennas, 

o vary  the  angle  at  which  the  target  is  viewed  (BISTATIC), 
o vary  the  size  of  the  cylinder. 

5.  Output 

Output  from  the  FRUSTUM-CYLINDER  program  first  contains 
a listing  of  the  input  data.  Secondly,  the  output  contains  a list  of  the  as- 
pect angle  (AL)  at  each  increment  from  the  input  minimum  to  input  maxi- 
mum versus  the  following  parameters: 

SV  - the  vertical  polarization  for  the  radar  cross  section  in 
dBsm. 

SH  - the  horizontal  polarization  for  the  radar  cross  section 
dBsm. 

THETAV  - scattered  phase  in  radians  of  the  vertical  polariza- 
tion. 

THETAH  - scattered  phase  in  radians  of  the  horizontal 
polarization. 

Through  a call  to  the  subroutine  PLTGDT  four  data  files  are 
built.  Each  file  contains  the  data  of  one  of  the  above  listed  outputs.  That 

is* 
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file  07  contains  the  data  of  SV, 

file  08  contains  the  data  of  SH, 

file  09  contains  the  data  of  THETAV,  and 

file  10  contains  the  data  of  THETAH. 

The  aspect  angle  (AL)  is  not  recorded  on  a separate  data  file. 
The  aspect  angle  can  be  easily  computed  for  the  above  data  by  using  the 
minimum  aspect  angle  and  the  increment  value  of  the  aspect  angle  both 
of  which  are  recorded  in  each  of  the  above  data  files.  That  is,  at  any 
Nth  increment  the  aspect  angle  is  equal  to  the  minimum  aspect  angle  plus 
N times  the  increment  value. 


Figure  IV -6  Logic  Flow  Diagram  for  the  FRUSTUM-CYLINDER  Program 

(Page  1 of  2) 
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Figure  IV-6  Logic  Flow 
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agram  for  FRUSTUM-CYLINDER 
Program  (Page  2 of  2) 


I DENT 

CLEARY, NEUFFER  ,65121 104RADC 

USERID 

clearysthree 

L0WL0AD 

0PTI0N 

F0RTRAN 

SELECT 

CLEARY /0FRCY 

select 

CLEARY /0XSA 

SELECT 

CLEAHY/0XSB 

$ 

EXECUTE 

s 

LIMITS 

05, 25K, , 10K 

s 

PRMFL 

07, V, L, CLEARY/ST0RE1 

s 

PRMFL 

08,W,L, CLEARY/ST0RE2 

s 

PRMFL 

09, W, L, CLEARY/ST0RE3 

s 

PRMFL 

1 0,  V7,  L,  CLEARY/ ST0RE4 

s 

DATA 

05 

SINPUT 
A1  *2.  446., 
A2-3.75, 

H 1 a7.  42 1 , 

H2° 17.260, 
CLAM=2.0056, 
DELAL=0. 1 , 
ALMIN=0. 0, 
ALMAX= 180.0, 
AL=0. 0, 

BET= 1 0.25  S 

S 

ENDJ0B 

* 


Sample  Job  Stream  for  FRUSTUM-CYLINDER  Program 


RA°C  0-56 


HIS -6000  Batch  Submittal  Form 
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Source  Listing  of  the  FRUSTUM-CYLINDER  Program 
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c program  rjuSiuN  cylinder  ($p*cy) 

c 

c 

CONMON/NAM/YY i < 20". ). YY2( 2000 ).YY3(  2000 ).YY4( 2000) .XX ( 2000)* II 
COMPLEX  EJR1.EJR2,EJR3.EJR«,EJR5.EJR6.EJRaN,RNaNSV.RHaNSH, 

X BNANSV,PNAN3H.E3Rb.RMSbV.RMSbH.|NSbV,RNSbH,EJRAT,rMATSV.BMATSH, 
X R»ATsyJRNATSHxZVtZH.lVCjiHc,SSVlSSH,jjPti 

l*Al  i1(9).B2{9)*BIT9).Bx79).Bfi9>.cY(9),B4(9j#B5'(9),B6{9). 

X B7(9).B8(9).B9(9).B10(9).B11(9).B12(9).DY(9>,EY(9) 
«AMELXST/ZNPUT/A1.A2.H1;H2»CLAM.DELAL, ALMXN, AlMAX.AL.BET 
1001  PORMATMH  , 7B 1 3,8  ) 

2000  P0RMaT(  1H1./////it9X'.’  INPUTS  - FRUSTUM  CYLINDER*  , 

•7////29X,  * SMALLER  RiDXUS  0_F  FRUSTUM  (a1J  ■ *#F14,7. 

*7/725x. *larger  radios  of  frustum  (a2)  - J»ri s.7, 

*7//29x , ’ full  hbioht  of  frustum  ihd  - ',ri4,7, 

*///29X. ' FULL  HEIGHT  OF  CYLINDER  (H2)  - *»ri4,7, 

*///29X,*WAVE  LENOHT  (CLa«)  ■ '.F14.7, 

*///29X.'lNcREMRNt  IN  ASPecT  ANGLE  IN  DEGREES  (deUD  ■ '.F14.7. 
‘^iiXilMlNlMUJL  ASPECT  ANgLE  JN  DEGREES  (ALMlN)  * '^14,7, 
•7//29X,  * MAXIMUM  jjSPBcT  ANGlE  IN  DEGREES  (aLH*x>  * SflU.7, 
•Z//29X, 'ASPECT  rNGLE  IN  DEGREES  (AE)  ■ '.F14.7, 

*//729X.'BISTaTIC  a*®1*  IN  DEGREES  (BET)  « '«E1<*.7./1H1) 

2001  FORMAT (3X#* At*  *3X,'SV(DbSN) *.  IX. < SH ( DgSM) * , 2X, 
•‘THETAV*.2X.'THEtAH* .//) 

1902  FoiftATLlXJE7^<l_ip2i:9.2«0P2F8.3) 
c 
9 
e 
c 

C INPUT  - NAMELIST  -INPUT 

C A 1 ■ SMALLER  RADIUS  OF  FRUSTUM 

C A2  * LARGER  RlDIUS  OF  FRUSTUM 

C HI  ■ TULL  HEIGHT  OF  FRUSTUM 

C H2  « FULL  HEIGHT  OF  CyLINDER 

C CLAM  - wavelePgth 

C DEEALb  INCREMENT  IN  ASPECT  ANgLe  (DEGREES) 

C ALHINb  MINIMUM  ASPECT  ANGLE  (DEGREES) 

c alma*"  maximum  aspect  angle  (degrees) 

C ALb  aspect  angle  (degrees) 

C BET  ■ bISTaTZC  ANGLE  (DEGREES) 

c 

1 READ (05, INPUT, END-999  ) 

WRITE  (06. 2000)  A1.A2.H1.H2.CLAM.DELAL,  AIMIN',  ALMAX.AL.BET 
II  ■ 0 

theta  m o. 

•HV2  ■ 0. 

RHH2  s 0. 

BELCl  • , 0 2 5 4 * . ,'1 2 5 4 
PI  * 3.14159265 
A2A  1 b(A2  - A 1 ) /H 1 
XbaTAB(A2*1) 

DTR  ■ PX/180. 


00001000 
000O101O 
00001020 
00001030 
00001040 
00001050 
00001060 
C00O107O 
00001080 
00001090 
00001100 
00001110 
C000 1 1 20 
0000 1 130 
00001140 
0000H50 
00001160 
00001 170 

OOOOIIBg 

C00O1 190 
0000119| 
0000120Q 

C000 1 2 1 0 
00001220 
00001 230 
0000124Q 
00001250 
00001260 
00001270 
00001280 
00001290 
00001300 
00001 31Q 
00001320 
0000U30 
00001340 
00001350 
C 000 1 360 
00001370 
00001380 
00001390 
00001400 
00001410 
00001420 
00001430 
00001440 
00001450 
00001«60 
00001470 
0000149Q 
00001490 
00001500 


■ 

<3P 

it 
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ITD  ■ 180. /PI 

on  nr  - rui^btI 

UMR  ■ ntNZH*OTi 
klRnX  ■ AlHnX*DT* 
fcL  ■ AL*DTB 
lit  ■ bKT*DT8 
NbET  ■ bET/2. 

ft  - J.*fi*c'ff¥rMB''i*T7ci:»H — 

iio  • ki 

8ri  - T.s-x/fi 
C»2  ■ 1.  +X/91 
iR3  ■ 1.5 

ilHXf  ■ PI-X 

Cl  ■ PI/I. 

C2  ■ PZ/tt. 

C3  » 2'. *CK# a 1 
C4  ■ 2 , *CK* A2 
C5  ■ 2 . *CK*H  1 


c*  ■ V.*ck*k3 
T?  ■ cosTpiTcih) 
Ca  - sir(pi/c>m) 

Co  ■ c®8(Pl/cR2) 
CIO  ■ SjR ( Pj/gR 2 
C11  • cOS(Pi/cR3 
C12  ■ SIR ( PI/CR3 j 

[ 

[ 

C13  ■ 1./(C7*COS 
ei4  ■ 1./(C9-C0S 

BET/CR11 J 
BEt/cPSlT 

eis  ■ 1./(C11-c08(BlX/CR3t) 
?16  ■ (c!4SQ«TU.VC!m/C>M 
C17  ■ {c10*S0*T(A2/CKn/CR2 
C1B  • (C12*S0RT(£2/CR) 1/CR3 

ei9  • C3*A 1 *8QBlTpi I 
e20  • cu*a2*sq*t?pz» 

CCA  182  ■ C3/2. 

CCA2S2  • Ctt/2. 

Ca»SC1  - 2.442(01(4*COS(HbXT1 
CARSC2  ■ 2.4428018U«COS(HbEX1 
“Tars b ■ 2. i 5¥I 2 7 9 * cffll h b^tT 
Cali  ■ x-hbet 
Ca12  ■ PlMXP-HBEt 
CaL3  ■ C1-HBET 

Ca1<4  ■ ci^hbet 
Ca15  ■ -CAt1_ 
txi  ■ ( m 1 ) > ccoa ( * ) ) 

ftIGARS  - (ClAH»/f2.*XXL*C0S(BJ!T/2,)  ) 

NtOBEv  ■ A>SZb($*QA»S) 

AilRCP  ■ RtOBER*! 1. 2/7.81 
UIRCM  ■ HLOBER*?  1.8/7.51 
USTOP  ■ C1***H*t*C*4«3*DT* 

AlBlOl  « Cl-X-Al*VcH-;3»BfX 

CbBoaD  ■ (|8.*PIRCo8(BEt/2. )1/(9. *CI>AM*C08(X)*{$Ir(X)**21)> 
X *(( A2**1.5-Al**1. 51**21 


00001510 
00001520 
0000153Q 
00001540 
00001550 
C0001560 
000015TQ 
' 00001580 

00001590 
00001(00 
00001*10 
00001(20 
00001(30 
T)OOOT640 
00001(50 
000016(0 
00001670 
0000168Q 
00001(90 
" — OOOOI7OO 
0000 1 7 1 0 
0000172Q 
0000173Q 
0000 1740 
00001750 
00001760 
0000177Q 
00001780 
00001790 
00001800 
0000181Q 
00001820 
000 183Q 
00001(40 
0000  1 850 
00001(60 
00001870 
00001880 
OOOOI89Q 
00001900 
0000191Q 
00001920 
00001930 
00001940 
00001950 
0000196Q 
00001970 
00001980 
00001990 
00002000 
90002010 
00002020 
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cels i - cbroad*relci 

00002030 

CIIS2  i 1 0*.  * *LOG T1')  ( CELS  1 1 

00002040 

CPLOT 1 - CELS2 

00002050 

CPLOT2  ■ CEI.32 

00002060 

00002070 

00002080 

ATESTl  . 0 . C5*DTli 

00002090 

*LUP  • O’.  1*dTR 

C00O2100 

00  TO  95 

00002  1 1 0 

XX-IX*1 

00002120 

XT  (ABS(AL-ALBBGN) .LF.ATEsTL)  ALBEGN  « AL 

000021  3Q 

IT  (abSIaI'-aI'BEOP)  .LE.aTESTL1  III  ■ II 

00002140 

If  aI?top  - Ki 

00002150 

IP  (ABS(aL-aI-STOP)  .LE.aTESTL)  112  - II 

00002160 

C21  • c3#SlNfAL) 

0000217Q 

C22  ■ C4*SIK(AL) 

00002180 

C23  ■ c5*C0S(fcl) 

00002199 

C24  ■ c6*C0SUU 

00002200 

P H 1_  ■ C.2-C21-C23 

00002210 

PH2  ■ ^2"^22 

OOOO222O 

■Ha  ■ C2-C22*C24 

00002230 

*MU  ■ — C53 

OOOO524O 

*H5  ■ -*H2 

00002253 

■ H6  ■ -C2+C22‘*-C2li 

OOOO226O 

■HP*  • riC4/2l)*C0S[Al,) 
CSPR  ■ COS(RHPH) 

00005570 

00002280 

0VPB  ■ SIN(RHPR) 

00002290 

BJPR  ■ CMPLX(CSPR.SNPR) 

00002300 

CSRH1  ■ COS(RHI) 

00002310 

BRFH1  ■ SIN(RHI) 

00002320 

CSRH2  « COS ( RH2 ) 

00002330 

0HRH2  * SIN ( B H 2 ) 

00002340 

CSRH3  » COS ( RH3 ) 

0000235C 

SNRH3  « SIN ( RH  3 ) 

90002360 

CSRH4  » COS ( RH4 ) 

0000237Q 

8NRH4  ■ SlN ( RH4  ) 

00002380 

CsRH5  ■ Cos ( H H 5 ) 

00002390 

SNPH5  * SlN ( RH5 ) 

00002400 

CSRH6  * COS ( RH6 ) 

000024  1 Q 

SNRH6  - SIN ( RH6 ) 

00002420 

E JR  1 • CnPLX(CSRHl.SNRHI) 

0 0002430 

EjR2  ■ CnPLX(CSKH2.SNRH2) 

00002440 

EJR3  > CMPLX(CSRH3.SNRH3) 

00002450 

EJR4  ■ CMPLX(CSRH4.SNRH4) 

00002460 

E JR5  ■ cnPLX(CSRR5.SNRH5) 

00002470 

EJR6  ■ CNPLXfCSRR^.SNRHei 

00002480 

C25  ■ C0S( (PI*2.*A11/CN1> 

000024 90 

C26  - C0S(  (2.*PI-2.*aD/CN2) 

00002500 

C27  « COS( (3,*PI«2.*A11/CN3) 

00002510 

c2e  ■ cost tPi-2. *AU/c*m 

00002520 

C29  ■ cost (2.*Pli2.*AL)/CN2) 

00002530 

C 30  « cost  (-Pi*2>aH/cN31 

0000254Q 
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Sf  (C21.  GE.  CAMlCn  GO  TO  20 
IF  Ui'.  8*,  cU  86  *0  20 


*1  »*l  C'»  «*u  l u 

Sr  (Al’.  EO.  0.4  So  TO  IS 
ficjkisi  ■ OsxiUn 
Cc*is  ■ CCilSI 

~ Ir  rcCAlS2-CCA^S^r^5.4S.25 

iseciis  ■ cctHS 

25  CONTINUE 

C3 1 ■ SQ1T ( CCaJ^T 

Sr  lkl\  EO;  O.VSO  to  35 
CCA231  ■ I’./EIN  (|L) 

Cca2S  ■ CCA**1 
Sr  ( CC>2S2-CC|2S 1 ) 35,35.45 
*35  CCA2S  ■ CCa23* 

45  CONTINUE 

C32  ■ SQRTlcCA^Sf 

Order  » i. 

Call  bess(o»der,  C2l.  bs) 

C33  ■ BS 

034  ■ 1.i/(c9"C2Sf 
C35  - 1,/(c9.,C29f 
C36  ■ 1,/(C11*C2f) 

*32sY  » C17*C32*To34-C14) 

1S2SH  ■ 017*032 *7 034*014) 

Ir  (aL*.  OT.  CaLST  GO  TO  53 

tS2SV  ■ 0. 

RS2SH  ■ 0. 

53  CONTINUE 

I&3SV  ■ Cl8»c3a< 

IS3SH  ■ C1**C32< 

15SSV  - C17»c32*Ic35-c141 

fs5SH  - Cl7*c32*tc3$*Cl<n 
Sr  ( AL'i  LT . CAL  1 4 8o  TO  55 
fcsssv  - 0. 

RS5SH  - 0. 

55  Continue 

CBXOX1  ■ 0.5 

Sr  (AL’.  to.  0.)  80  fO  65 
CRXOX1  » C33/C21 
65  Continue 

*HAN  ■ -C1-C23 
OsRHAN  - COS(RHAl) 

___  INRHAN  ■ SIM(RHAl) 

TJSaN  i ClfplttCSlHASTSNfHA'Nr 

*MaNSV  ■ Ol9*CBXBX1*EJRANlcl6*c3i*Cl3*(EJB1*BjR4) 
■KARSH  * cl9*CBXSXl*EJRANtc18*c3^*Cl3*(EJ11*EJR4) 
•NANSV  - Rs2SV*E8R2**S3SV*EJR3tRS5SV*EJ»5 
>NANSH  ■ *s2SH*Ei*2+*s3SH*EJ83**S5SH#E>J*5 
*V  ■ RMANSV  ♦ RNiNSV 

*n  - EHjmnr*  unsr  ■ — " 

GO  TO  60 

20  C70  ■ SQRT(c24**2)/2. 


J*Ic38»c^5) 

c18*c32*Tc38tC^ 


0000255Q 

00002560 

00002570 
0000258Q 
00002590 
0000260Q 
0000261 Q 

00002620 

00002630 

>0002640 

0000265Q 

0000266Q 

0000267Q 

"00007580 

OOOO269O 

00002700 

00002710 

0000272Q 

0000273Q 

00002740 

00002750 
00002760 
00002770 
00002780 
00002790 
00002800 
00002810 
00002g2q 
00002830 
00002840 
00002050 
00002860 
0000287Q 
00002880 
00002890 
00002000 
000029 1 0 
00002920 
00002930 
0000294Q 
0000295Q 
00002960 
0000297Q 

00002980 

OOOO2990 

00003000 

00003010 

00003020 

00003030 

00003040 

00003050 

00003060 
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Ip  tC70j  Uj  CAN5B)  GO  TO  40 
IP  IciT.  Le  • c N S c 2 ) GO  TO  50 
»ESH  - SORT ( 1 , /StN ( AL ) ) 

C37  - 1./(C7-C25T 
C38  ■ 1,/(C9-C26f 
C39  ■ 1 , / ( C 1 1-C21?  ) 

C40  ■ 1./(C7-C28T 

C4i  ■ i.7('c9-C29r 

C42  ■ 1./(C11-C3<J) 

BSISV  a C16*RESN*(C37-Cl3i 
BS1SH  a C16*RESN»(C37+Cl3l 
IP  (AX.'.  LT.  CRL2V  SO  TO  75 
BS1SV  a Ot 
is 1SH  a 0 , 

75  RS2SV  a c17*RESN*(c38-c14J 
BS2SH  a c17*FESN*(c384-c14i 
BS3SV  a ct8*RESN*(c39-Cl51 
FS3SH  a C18*ReSH*(C39+c15) 

BS4SV  a Cl6*RSSN*(c!*0-c13j. 

BS4SH  a c16*HESK*(c<*0+c13i 
IP  UL'.  IT.  cal3J  50  TO  g5 
BS4SV  a 0. 

RS4SH  a 0. 

0 5 BS5SV  a C17*BESN*(041-Cl4i 
t§5SH  a c17*RESH*(c41+c14i 
IP  ( AL.  LT  . CaL  1 j GO  TO  96 
BS5SV  a 0, 

BS5SH  a 0. 

96  RS6SV  a C1b*RESN*(c42-c151 
BS6SH  a c18*BESN*(c42+cl5V 
IP  (AL’t  GT.  CAL4)  GO  TO  1 05 

RS6SV  a 0. 

BS6SH  a 0. 

105  IV*RS1SV*EJB1+RS2SV*EJR2+RS3SV*EJR3+RS4SV*EJR4*RS5SV*EJR5 
X ♦RS6SV*EJR6 

Ih*HS1SM*EJB 1+Rs2sh*EJR2*RS3SH*E3r3+RS4SH*EJb4+RS5SH*EJR5 
X ♦BS6SH*EJR6 


GO  TO  60 

40  C43  a 1S/(C7-C251 
C44  - 1 . / ( C7-C28 1 
C45  - 1./(C11-C30) 

BESN  a SQRT(  1./stK(AL) ) 

BS1SV  a C16*RES»*(C43-C13) 
ftSISH  a C16*RESK*(C43»-C13> 

IP  (AL.  LT.  CALi  ) GO  rO  H5 
BS1SV  a 0. 

RS1SH  a 0. 

115  RS4SV  a c16*MESN*(c*“*-C’3l 
RS4SH  a C16*F)5SN*(CUU^C13> 

IP  (AL'.  LT.  C AL3 1 GO  TO  125 
RS4SV  a 0. 

RS4SH  a 0. 


00003070 

00003080 

00003090 

00003100 

00003110 

00003120 

00003130 

00503180 

00003150 

00003160 

00003 170 

00003 1 0 0 

00003190 

0000320 0 

00003210 

00003220 

00003230 

0000324g 

00003250 

00003260 

00003270 

0000328Q 

00003290 

00003300 

00003310 

00003320 

00003330 

0000334Q 

00003350 

00003360 

00003370 

00003380 

00003390 

0000340Q 

00003410 

0000342Q 

00003430 

00003440 

00003430 

00003460 

00003470 

00003480 

00003490 

00003500 

00003510 

00003520 

00003530 

00003540 

00003550 

00003560 

00003570 

00003580 


IV-271 


I 


•133T  01  09-29-75  11.852 

125  9363V  - C18*»ESN*(C«5-C15T 

fs53H  • C 1 8*»E3X*  rc»5ic 1ST 

xr  Cal'.  ot‘.  cax^T  so  zo  135 

ISfiSV  • 0. 

IS6SH  ■ 0. 

135  iMXOS  m r, 

SHg  I C2  -C22  *(e24/2.>  *e1 

C3RH6  p COS(RHB) 

SMRHB  - SZM(RHB) 

»JHB  ■ CHPlXlCSAiB.SKRHB) 


XT  IQ',  eU  BO  145 

fBXOX  - SIS (C24/S,)/!C24/2.! 


145  9hsbV  p -30»T<»2?CcX*SlBttl)n‘elC*H2*S*X0X*EJ«B- 
— x civsci»in.y5z5t1tn*ci4*tEJ»2Ticiz*30BTiT7rsfit7iyrwci5*EJir 

lN3«H  - -S0RT(.2j?cX*SI3(»X)  ) ) * H 2 * 5 HX 0X * 

X c^‘*8Q«f{T^»X*r»LfV*C^*iBJ*2)*c1®*»Q*lin./SZ»(AL))*c15*EJB3 
lESjV  - BS1SV*ijM1*1S4SV*1JH4*»86SV*EJR6 
IBSjH  p RS13H*jjSl*i6l»SH^tJR4iRS6SH*EJR6 

XV  ■ BBSbV*E1»3iiV 

lH  • »R  ) jH+RNSgH 
BO  TO  60 

so  zr  <»xr.  eq'.  m bo  to  155 
CcrIBI  ■ I./BzEUU 

CCAlS  p CCA  IS  1 

zr  (CCa1S2-CCa1s1>  155.155.165  _ 

155  tCA IS  ■ CCA1S2 

165  C03TZE01. 

643  ■ SOBTIcca^sT 

Zr  (H’.  sQp  >iV  Bo  to  173  

CCA2S1  p 1./SZB(Al) 

Cca2S  p CCa23  1 _____ 

Xr  (CCA2S2-CCA231)  ^5. 1^5^185 
175  CCA2S  p CCA2S2 
1 8 5 60MTIVUE 

C44  ■ SQBT(CCA2ST 
IhaT  ■ -ciic24 

C8RHAT  ■ COS ( RHaZ  ) 

Irrhat  > SIK(RHAt) 

EJBaT  p CMPLX(csIHaT.SNPHhT) 

EbXOX2  « 0.5 

Xr  (»!'.  EQ'.  PI»  00  TO  195 

ordeb  > 1. 

call  bess(obder.  C22.  bs) 

fU5  '■  B3 

CBX0X2  > C45/C22 
195  ContZruE 

C46  ■ 1 ./( C7-C25T 
C41  ■ 1./{c9-C26t 
RSISV  p C16*C43MC46-C13» 

~ 151SH  ■_CiriC81*TC«6iei3) 

Xr  (AX'.  XT'.  CA12T  SO  TO  205 

ISlSV  >0.  4 
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RS1SH  • 0.  _ 

2o5  fis2SV  * cl7*Cl*4*Tc<*7-cl41 

■ S2SH  ■ c 17*c44*fc47+c14 J , 

•MrTSV  * c20*CBXex2*EJSAT-d8*C4a*cl5*(EJ*3+EjR6) 
RHATSH  ■ c20*cbX8X2*EJFAT;c18«c44*c15*(eJR3-»EJR6) 
RNrTSV  s RSlSV*Eim*PS2SV«EJ«2 
RHATSH  » RS1SH*£jRURS2SH*EJR2 
ZV  ■ RMrTSV  ♦ RH|TSV 
EH  ■ RHATSH  * RHATSH 
60  TO  60 
60  EV  ■ EV*EJPR 

eh  = zh*ejpr 

EVC  ■ COHJG{ZV* 

•SV  ■ ZV*ZVC 
ZHC  ■ CONJG(ZH) 

SSH  a ZH*  ZHC 
■ealsv  * REAL(SSV) 

IeAI.SK  ■ ReAL(SSH) 

RRlSVj  » R5AI,SV**EI.C1 

*ELSV2  * io.*AlOBlu(RELSV1) 

IeISHi  • re alsh* ReLc ' 

■ EESH2  *io.*aLogimrelshM 

«HV1-ETAl,2(AlMk5?ZV>.REAl'fZV)  ) 

CALL  UPDAT(RHV1,  j»HV2.PI.THETAV» 
tHH1»ATAH2(AlHAGlZH),REAL?ZH)  \ 

CaEI.  UPDaT(RHH1.*HH2.PI;ThETaH) 

Al  ■ RTD*aE 

«RITE(6, 20021  aL.  PELS V2 . RELSH2.  THETAV,  THEtaH 
IP(RELSV2.GT.'v.  ) R£lSV2  • AKIH  1 ( ReLSV2 . 40  , ) 
IdIlElSV2.lT.  .)RELSV2  ■ AK AX  1 ( RELSV2, -70 . ) 

If  ( RELSH  2 , GT.  ■ ’.  ) RjLSH  2 ■ AKIH  1 ( ARLSH2. 40  , ) 

It  (REISH2.it'.  r.mLSH 2 ■ aMaXMREISH2,-70.  ) 

TIMID  ■ RELSV2 

IT  2 ( ID  = RELSH  2 

TY3  ( ID  = THETAV 

TY4  ( ID  * THETAH 

nun  * al 

Ai  * DTR*AL 

IF  (AB-(AL-ALSTOP)  .GT.ATEsU)  GO  TO  300 

IC  * in 

cci  ■ ALBEGN 

HP  = 9 

IC2  * II2-3 

CC2  ■ ALSTOP-3,*ALUP 

DO  301  I = 1.4 

BX ( I ) = C C 1 * ® T D 

BT(I)»  TYMIC) 

CJIII  = Y Y 2 ( I C I 
DI(D  - YY3(IC) 

EY(D  = YY4(IC* 

IC  * IC*1 
CCI  « A LU  P + CC  1 


C0004110 

00004120 

00004130 

00004140 

00004150 

00004160 

00004170 

00004180 

0000«190 

00004200 

00004210 

00004220 

00004230 

00004240 

00004250 

0000426Q 

00004270 

00004280 

00004290 

00004300 

00004310 

0000432Q 

0000433Q 

00004340 

00004350 

00004360 

C000437Q 

00004380 

0000439Q 

00004400 

00004410 

00004420 

00004430 

00004440 

00004450 

00004460 

00004470 

00004480 

00004490 

00004500 

00004510 

00004520 

00004530 

00004540 

00004550 

00004560 

00004570 

00004580 

00004590 

00004600 

00004610 

00004620 
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30i  Continue 


IX) 5)  ■ i ft/3.tfXT'<W 
IT(S)»  cHoti 
CTtS)  ■ C»L0T2 
bo  302  X - 6.9 
lx  t X 3 - CC2+1TD 

»T ( X) > IY1(XC2A 

_ 

Drill  ■ YY3(XC2) 
lYixt  • TT4(XC2) 

Ic2  ■ IC2-*  1 
Cc2  ■ CC2*ALUp 
3o2  Continue 

iyot  ■5-i5Yruyij»n  j yr: 

*1(5)  • (EY(4)*Et(6))/2; 

34)  I»  - ALBION  * IT* 

CjtlL  SUN46  (OaXN.Tf.NX'. BT.NP.g1.B2.Q3) 
t* Li  IPLNU6  (o’.xf.rf i;bx.cx.»p.b|*»b5.b6) 
C»LL  INLN46  ( 0 . Xt . YN2 . BX . DT, NP. *7. Bft . B9 ) 

tJl'L  EliNL6  i0.kf;n3.BX.ET/Nf^T07Bl*'Bl2V 

CCCC1»DELXL*>Te 
bo  303  X « XX1.Xt2 

call  ipln46  M.xp.yp.bx.bt.np.bi.b2,B3) 
t ALL  I PLN46  M'.Xf.rN1.BX.cY.NP.B4«BS.Bb) 
Call  spln46  ( v.xf . yp2.bx.dy.np.B7.bb.b9) 
Call-  InTnC6  M . X f . Y» 3 . B X. xY.Nr.Bl 5 . 5 M. B T21 

XX  (X) 


trim 
TX2 (X) 
tX3 ( X ) 
tT4 ( X ) 

Tp 


xp 
» YP 

• YP  1 

• Yp2 
» YP3 


XP*CCCC1 
3o3  continue 
u ■ alstop 

300  AXNpX-XX  _ _ 

AL-AINDX*DELaL  +ALO 
IF  (AL»AL(UX)  10|1-.200 

Sob  Call  pltodt 

00  TO  1 
9S  CONTINUE 

•BXTE ( 6. 200 1 ) 

TheTAV  ■ o'. 

_ TheTAH  ■ 0. 

~6o  to  76 
999  Continue 
Btop 

End 


00004630 
OOOOUfUQ 
000046SQ 
0000466Q 
00004670 
00004^80 
0000469Q 
“ 00004700 

000047  IQ 
00004720 
0000473Q 
00004740 
00004750 

00004760 

00004770 

0000478Q 

00004790 

00004.00 

00004.10 

OOOOB|20 

00004830 

0000484Q 

ooooBeSq 

0000486Q 

00004B70 

0000«88Q 

OOOO«09O 

0000«9OQ 

00004910 

00004920 

00004930 

00004940 

00004950 

OOO04960 

C000497Q 

0000u980 

00004990 

00005000 

00005010 

00005020 

00005030 

00005040 

00005050 

00005060 

00005070 

00005080 

00005090 
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INPUTS  - FRUSTUM  CYLINDER 

P 

SMALLER  RADIUS  OF  FRUSTUM  <A1)  ■ 2,4460000 

LARGER  RADIUS  OF  FRUSTUM  ( A2 ) ■ 3,7300000 

FULL  HEIGHT  OF  FRUSTUM  (Hi)  • 7,4210000 

FULL  HEIGHT  OF  CYLINDER  (H2)  ■ 17,2600000 

HAVE  LENGHT  (CLAM)  f 2.0056000 

INCREMENT  In  ASPECT  ANGLE  IN  DEGREES  (DELAL)  ■ O.IOQOQOO 

MINIMUM  ASPECT  ANGLE  IN  DEGREES  ( ALMIN)  ■ 0, 

MAXIMUM  ASPECT  ANGLE  IN  DEGREES  (ALHAX)  a 180,0000000 
ASPECT  ANGLE  IN  DEGREES  (AL)  a 0, 


BISTATIC  ANGLE  IN  DEGRE ES  ( B Ej T ) a 10,2500000 


• *-■■■  •"  ■ 


I 


I 


Sample  Output  for  the  FRUSTUM -CYLINDER  Program 
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| ■ MMi 





I 


ALSV<D8SH. 

)SH(D33M. 

) 

thetav 

THETAH 

0.  -1.50E 

00-1.935 

00 

-1.169 

-1.170 

5 71  d -T. 5 0 E 0Q -1.91  c od''- 1.168 

-1.168 

0.20-1.50E 

00-1. 985 

00 

-1.167 

“1.165 

0.30-1.51F 

~6  0=1. 35  S' 

00 

-1.165 

-"1.162 

0.40-1.51E 

00-1.93= 

00 

-1.163 

-1.159 

0 » 5d”l . 52e 

00-1.855" 

w 

- i • 1 6 i 

~^V.l5"5 

0*60-1. 53E 

00-1.785 

00 

-1.158 

-1.152 

0 .70-1 .546 

00-1.755 

uo 

-1.155 

-1.148 

0.80-1.55E 

00-1. 73E 

00 

-1.152 

-1.144 

0,90-1.566 

OQ-i  .716 

00 

-1.149 

-1.140 

1.00-1.576 

00-1. 69E 

00 

-1.145 

-1.136 

1.10-1.5^6 

OQ-i. 665 

“oF" 

-1.141 

-1.132 

1.29-1. 616 

00-1.655 

00 

-1.137 

-1.127 

1 .30-1T.63F 

00-T7635 

00 

-1 . 132 

-1.123“ 

1.40-1.65E 

00-1.615 

00 

-1.127 

-1.118 

1.59-1. 67E  PQ-1 • 595 

od 

“=I7f?T 

“=17113 

1.60-1.696 

00-1.585 

00 

-1.117 

-l.loB 

1.70-l^iE 

00-1.575 

00 

-1.111 

“l.loS 

1*80-1. 75E 

CO-1. 555 

00 

-1.105 

-1.098 

1.90-1.771 

00-1.545 

00 

-1.099 

-1.093 

2.00-1.B0E 

00-1.545 

00 

-1.092 

-1.087 

2.10-1.84E 

0Q*-1 . 535 

00 

-1 . 066 

-1.082 

2*20-1,875 

00-1.525 

00 

-1.078 

-1.076 

2.30-1.906 

00-1. 525 

00 

-l.o7l 

-1.071 

2.40-1.94E 

00-1. 52E 

00 

-1.063 

-1.065 

2.50-l.W 

00-1. 52E 

00 

-1.056 

-1.05T" 

2.60-2.02E 

00-1.525 

00 

-1.047 

-1.053 

2. 70-2. 0&E 

00-1 . 52F 

00 

-1.039 

“=1 .047 

2 .80-2 . li)E 

00-1 • 535 

00 

-1.030 

-1.041 

' 2.90-2  ,"15E‘ 

00-1.546 

CTD 

-1 . O' 21“ 

-1.035 

3.00-2.19E 

00-1.555 

00 

-1.012 

-1.029 

3.10-2.24E 

00-1.57= 

00 

-1.0J2 

-1.023 

3.20-2.29E 

°0“1 . 58= 

00 

-0,992 

-1.017 

3 . 30 ”2 . 3^E  00-1. *0  = 

00 

-0.902 

“a. “on 

3.40-2.40E 

00-1.635 

00 

-0.972 

-1.004 

3 ,5C“2 . 45E 

Oo-i . 656 

TO- 

-0 . 96i 

““=0.998 

3.60-2. 51E 

00-1. 68E 

OG 

-0.950 

-0.991 

3.70-2.57E 

00-1.71= 

00 

-0.939 

-0.985 

3.80-2.63E 

00-1.75= 

00 

-0.920 

-0.978 

3.90-2.696 

oo-i.79r 

CO 

-0.916 

-0.971 

4.00-2.75E 

00-1.93= 

00 

-0 . 9o4 

-0.964 

"4.lO-2.'fi2F 

00-1.39= 

ud 

-0 • 891 

= 0 • 950 

4.20-2.885 

00-1.93= 

00 

-0.879 

-0.951 

4.30-2. 95E 

OQ-l  79?  = 

00 

-0.866 

-0  .“9  43 

4.40-3.Q2E 

00-2. 055 

00 

-0.853 

-0.936 

4.50-3. 10E 

00-2. llF 

00 

-0.840 

=5792? 

4.60-3.17E 

00-2.185 

00 

-0.826 

-0,921 

'T770-J.25F 

Cd-2. 25=“ 

00 

-0 . Bi2 

"=6.91 4 

4,83-3.336 

00-2.335 

00 

-0.798 

-0.9o6 

4. 90-3. 41c  00-2.36  = 

00 

-6.703“ 

-6.917 

5.00-3.496 

00-2.456 

00 

-0.769 

-0 . 9o8 

5.10-3.57E 

"?0 -2 .55= 

00 

-07754“ 

-rT.899 

5.20-3.66E 

00-2. 65E 

00 

-0.739 

-0.890 

5.30-3.V5E 

00-2 .7&r 

00 

-0.723 

“"=0.801" 

5.40-3.84E 

00-2. 97= 

00 

-0 . 7c7 

-0.871 

5.50-3.93E 

00-2.99= 

uT 

-0.691 

-0.861 

5.60-4, 02E 

CO-3.115 

uo 

-0.675 

-0.850 

5.70-4.12E 

00-3.24= 

00 

-6.65? 

-6.639 
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5.80-4.22E 

'’0-3. 37E 

JO 

-0.642 

-0.027 

~5*»0-4.“32E 

0 0 ~ 3 . 5 1 E 

uo 

-0.625- 

" -o75T5~ 

6.O0-4.42E 

no-3.66E 

JO 

-0 . 6 j8 

-0 .8o3 

6.18-4. 53E 

■"  Q - 3 . B 1 E 

00 

-0.590 

-0.790 

6.20-4.64E 

00-3. 96E 

00 

-0.572 

-0.776 

6.38-4.75E 

00-4. 13E 

oO 

-0.554 

-0.762 

6.40-4.86E 

0 0 - 4 . 3 0 E 

00 

-0.536 

-0.747 

6.50-4. 97E" 

0Q-4.4TT  00 

-0.517 

- 07731 

6,60-5. 09E 

00-4 . &6E 

UO 

-0.499 

-0.715 

6.70-5.21E 

00-4. 94E 

00 

-0.480 

-0.698 

6.80-5.33E 

"0-5. 04E 

uO 

-0.460 

-0.680 

6.90-5.45E 

00-5. 24E 

00 

-0.441 

-0.662 

7.O0-5.58E 

00-5. 45E 

00 

-0.421 

-0.642 

7 . 10-5. 71E 

00-5  756? 

00 

-0.4)1 

-07512 

7.20-5.84E 

'*0-5.98  = 

UO 

-0 . 381 

-0 . 6ul 

7.30-5.97E 

no-6. 1 = 

JO 

-0.360 

-0.579 

7.40-6. HE 

‘’0-6.335 

JO 

-0.340 

-0.555 

7.50-6.25E 

00-6. 57E 

uO 

-0.319 

-0.531 

7.60-6.39E 

Ofl-6 . 9 1 E 

00 

-0.298 

-0 . 5u5 

7.70-6.54? 

'n0-7‘.  0<5I 

00 

-0.27 7 

-in  478 

7.80-6.68E 

"0-7.315 

00 

-0.255 

-0.449 

7.90-6. 84E 

00-7. 56E 

00 

-0.233 

- 0 . 4 1 9 

8.O0-6.99E 

-> 0- 7 . 92  = 

uo 

-0.211 

-0.388 

8.18-7.15E 

ro-8. 08E 

00 

-0.189 

-0.356 

8 . 2fi“7 . 31E 

PH -8 . 34 E 

JjQ  - 

— ” 0 • JL  67 

-0.322 

8.30-7.47E 

n 0 - 8 . 6 1 E 

1)0 

-0.144 

-0.286 

8,40-7. 63E 

OQ-8. 97E 

00 

-0.121 

-0.249 

8.50-7.80E 

00-9.13= 

00 

-0.098 

-0.210 

8.60-7.98E 

"0-9.39= 

UO 

-0 . "75 

-0.169 

8.70-8.15E 

00-9. 64E 

00 

- 0 . " 5 1 

-0.127 

8.8@-8.33E 

"Q-9. S9E 

;>0 

-C.027 

-0.083 

8,90-8 , 5lE 

n 0-1.01= 

Ul 

-6.-3 

-0.038 

9.UO-8.70E 

"0-1.04= 

ul 

0.021 

} . 0 0 8 

9.10-8.89E 

"0-1.06= 

Ul 

0.046 

" . 056 

9.20-9. 04E 

"0-1 . 08= 

01 

0 ."64 

".0  97 

9.30-9.2;JE 

"0-1 .095 

01 

0.007 

0.144 

9.40-9.36E 

"0-1- HE 

ill 

0.110 

'.192 

9.50-9.53E 

"0-1.12= 

ul 

0.133 

0.24  0 

9.60-9. 7 HE 

"0-1  • 14  = 

01 

0.157 

.289 

9.70-9.88E 

^0-1 . 15= 

'll 

0.180 

J .33  7 

9.80-1.01E 

"1-1 . 16E 

01 

0.2  j4 

J . 3 8 6 

9.90-1.02E 

"1-1.17= 

01 

0.228 

".433 

10.U0-1.04E 

"1-1.18= 

ol 

0.252 

0.481 

10.10-1.06E 

"1-1 . 19= 

01 

0.276 

’.527 

10,20-1. 08E 

"1-1.19= 

01 

0.3.0 

0.573 

10.30-1.10E 

"1-1.2  = 

01 

0.324 

".618 

10.40-1.12E 

"1-1.21= 

01 

0.348 

.'.661 

10.50-1.18E 

"1-1 . 21= 

•J1 

0.373 

C . 7 j 4 

10.60-1. 17E 

"1-1.22= 

J1 

0.397 

".745 

1U.'70-1.19E 

"1-1.22= 

Jl 

0.421 

" . 785 

10.80-1.21E 

"1-1.23= 

01 

C .445 

.823 

10.90-1.24E 

"1-1 . 24= 

Jl 

C .470 

0.860 

11.00-1.26E 

"1-1.245 

01 

0.494 

0.896 

11.10-1.29E 

"1-1.25= 

'll 

0.518 

0.93  0 

11.20~1.31E 

"1-1.26= 

01 

0.542 

0.963 

1H30-1.34E 

"1-1.27= 

Jl 

0.566 

0.994 

11.40-1. 36E 

-1-1.28= 

01 

0.59n 

1.024 

11.50-1.39E 

"1-1.29= 

01 

0.613 

1.053 

11.60-1.42E 

"1-1.3  5 

Jl 

0.636 

1.081 
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ll.yt-l.48E  01-1. 32E  01  0.659  1.107 


11. ft 
i2;oi 
12.10 
12.lt 

12.30 

lTTTT 

12.50 
i2;*o 

12.70 
12.00 
12.00 
13TJT 
13.10 

13.10 

13.30 

13.40 

13.50 

ITT TT 

13.70 

13.00 
13.90 

14.00 

14.10 

"UTIT 

14.30 

14.40 

14.50 
14.00 

14.70 


•1.50E  01* 

•i  . w or- 

•1.57E  01* 

•i.60E“or* 

‘1.63E  01* 
■i.65E  01- 
■1.70E  01* 
•1.73E  01* 
■1.77E  01- 
■1.01E  01* 
•1.04E  01* 


1.35E  01 
1.T7E01 
1 . 39E  01 
1.41 E oi 
1 • 43E  01 
1.46E  oi 
1.49E  01 
1.52E  oi 
1.56E  01 

i.'WnH' 

1.64E  01 
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f i-i. Joe 
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'1-1.236 

01 
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8.12* 
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ri-1.155 

01 

45.4,2 

8.I0I 

l7l.80-l.05E 
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01 

45.413 

8.076 

171.90-9. 916 

'0-1.02? 

01 

457421 

8.051 

172. 00-9. 33E 

00-9.815 

00 

45.428 

8.028 

172. 10-8.776 
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UO 

45.432 

8.006 
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oO 

45.430 

7 . 985  tv.306 
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00-7 . 98w 

00 

45.438 

7.965  IVJ06 
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"0-7. 48= 

UO 

45.439 

7.945 

172755-5 . 73  F 

To-T,  oil 

bo 

"457*79 

77  928" 

172. 69-6. 34E 

"0-6.56= 

00 

45.438 

7.908 
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"Q-6. 13E 

00 
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7.891 
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00 
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7.873 
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no 
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7.841 
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00 
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00 

45.415 
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00 

45.411 
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00-2. 93E  00 

45.406 
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00"2. 64E 

00 
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7 , 73v 

173. 89-2. 21E 

00-2. 36E 

0 0 

45.397 

7.725 

173.80-1.94E 

00-2. 09E 

00 

45.393 

7.7i2 

174.00-1.69E 

"0-1*  93E 

UO 

45.388 

7.700 

174.10-1.39E 

00-1. 52E 

00 

45.385 

7.689 

174^q-i?ioE_ 

0Q-1.23E 

JL9 
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7.676 
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•01-9. 4iE- 

-01 

45.373 

7.663 
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-ul 
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7,650 
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-01 

45.360 

7.637 

174. 60-2. 76E- 

■02-1. 32E- 

-01 

45.354 

7.625 

174.70  2.20E- 

•01  1.22E- 

-ul 

45.347 

7.6i3 

174,90  4,616-01  3 .ME- 

•UL. 

4§j  3U 

7-.6o2 

174.90  6.94E-01  6.09E- 

-al 

45.335 

7.590 

175.00  9.21E- 

■rl  8.42E- 

-1)1 

45.329 

7.579 

175.10  1.14E 

00  1.07= 

00 

45.323 

7.569 

175.20  1.35E 

00  1.29E 

00 

45.317 

7.559 

175.30  1.56E 

0 0 1 . 3 ,)  E 

00 

45.311 

7.549 

175.4  0 A^E 

2tL.LsZll 

00 

45.3, 5 

7j  54  0 

175.50  1.96E 

00  1.91E 

0 0 

45.299 
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175.60  2.14E 

00  2.11= 

00 

45.293 

7.522 

175.70  2.33E 

00  2.29E 

00 

45.287 

7.5i4 

175.80  2.51E 

00  2.48E 

00 

45.282 

7.5o5 

175.90  2.68E 

00  2.66E 

0 0 

45.276 

7.498 

176.00  2.84E 

"0  2 . 93E 

UO 

45.270 
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l76;i0  3.0iE 

"0~  2.99  = 

no 

45.265 

7.483 

176,20  3. l6£ 

"0  3.16E 

UO 

45.259 

7.476 

176.30  3.31E 

"0  3. 3lE 

no 

45.254 

7.469 

176.40  3.46E 

CO  3 . 4 6 E 

uO 

45.249 

7.463 

176,50  3.60E 

"0  3.51E 

00 

45.243 

7.456 

176.60  3.74E 

"0  3.75E 

no 

45.238 

7.450 

176.70  3.87E 

"0  3.99E 

MO 

45.233 

7.445 

176.60  4.00E 

"0  4.32= 

uO 

45.228 

7.439 

176.90  4.12E 

"0  4.14= 

0 0 

45.223 
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177.00  4 . 24E 

'0  4.27E 
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OQ  4.9  E 

00 

45.192 

7 . 404 

177.70  4.94E 
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4 H.  HEMISPHERE -CYLINDER  Program 

1.  Introduction 

The  HEMISPHERE -CYLINDER  program  was  originally  de- 
veloped under  contract  AF30  (602J-67-C-0074  for  RADC  by  Cornell  Aero- 
nautical Laboratory,  Inc. , under  subcontract  to  the  Fort  Worth  Division  of 
General  Dynamics.  Related  information  pertaining  to  this  program  can  be 
found  in  the  program  GDT07  documentation  produced  by  General  Dynamics. 
The  theory  is  described  in  RADC-TR-68-340,  "Investigation  of  Scattering 
Principles  - Volume  in  - Analytical  Investigation",  May  1969. 

2.  Abstract 

Based  on  the  Geometrical  Diffraction  Theory  (GDT),  the 
HEMISPHERE-CYLINDER  program  computes  the  polarisation  radar  cross 
sections  in  dBsm  and  the  scattering  phases  in  increments  of  the  aspect 
angle  for  a right-circular  hemisphere-cylinder. 

3.  Computer  Program  Operating  Environment 

a.  Computer 
HIS-6000 

b.  Source  Language 
FORTRAN  Y under  GCOS 

c.  Memory  Requirement 
22K  words 

d.  Typical  Processing  Time  Required 
0.0052  hours  (18. 72  seconds) 

«•  Peripheral  Equipment  Requirement 

Four  disc  files  (file  codes:  07,  08,  09,  10) 
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Subroutines  Used 


Subroutines  obtained  from  SXSA  subroutine  file: 

UPDAT 

PLTGDT 

4.  Inputs 

The  inputs  which  are  needed  for  the  executing  of  the  HEMISPHERE 
CYLINDER  program  are  as  follows: 

A - Radius  of  cylinder  (inches) 

H - Half  height  of  cylinder  (inches) 

CLAM  - Wave  Length  (inches) 

DELAL  - Increment  of  aspect  angle  (degrees) 

ALMIN  - Minimum  aspect  angle  (degrees) 

ALMAX  - Maximum  aspect  angle  (degrees) 

AL  - Initial  aspect  angle  (degrees) 

Input  Format 

The  above  inputs  are  entered  into  the  program  through  NAMELIST 
format.  The  mnemonic  variable  INPUT  is  used  as  the  NAMELIST  name. 

The  first  input  card  must  contain  a $ followed  by  INPUT  (i.e.  , $INPUT). 

After  the  $INPUT  the  data  items  must  follow  in  the  format  of: 

variable  1 name  = (value), 
variable  2 name  = (value), 

• 

variable  n name  = (value)  $ 

Each  data  item  must  be  separated  by  commas.  Following  the 
last  input  data  item  a $ must  be  present.  Refer  to  the  sample  job  stream. 

By  changing  the  above  inputs  the  user  can: 

o vary  the  radar  frequency  and  polarization  of  the  transmitting 
and  receiving  antennas, 

o vary  the  size  of  the  hemisphere-cylinder. 
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5.  Output 

Output  from  the  HEMISPHERE-CYLINDER  program  first  con- 
tains a listing  of  the  input  data.  Secondly,  the  output  contains  a list  of  the 
aspect  angle  (AL)  at  each  increment  from  the  input  minimum  to  input  maxi- 
mum versus  the  following  parameters: 

SV  - the  vertical  polarization  for  the  radar  cross  section  in 
dBsm. 

SH  - the  horizontal  polarization  for  the  radar  cross  section  in 
dBsm. 

THETAV  - scattered  phase  in  radians  of  the  vertical  polariza- 
tion. 

THETAH  - scattered  phase  in  radians  of  the  horizontal  polariza- 
tion. 

Through  a call  to  the  subroutine  PLTGDT  four  data  files  are 
built.  Each  file  contains  the  data  of  one  of  the  above  listed  outputs.  That 
is, 

file  07  contains  the  data  of  SV, 

file  08  contains  the  data  of  SH, 

file  09  contains  the  data  of  THETAV,  and 

file  10  contains  the  data  of  THETAH. 

The  aspect  angle  (AL)  is  not  recorded  on  a separate  data  file. 

The  aspect  angle  can  be  easily  computed  for  the  above  data  by  using  the 
minimum  aspect  angle  and  the  increment  value  of  the  aspect  angle  both  of 
which  are  recorded  in  each  of  the  above  data  files.  That  is,  at  any  Nth  in- 
crement the  aspect  angle  is  equal  to  the  minimum  aspect  angle  plus  N 
times  the  increment  value. 
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Figure  IV-7  Logic  Flow  Diagram  for  HEMISPHERE-CYLINDER  Program 

(Page  1 of  2) 


Figure  IV -7  Logic  Flow  Diagram  for  HEMISPHERE-CYLINDER  Program 

(Page  2 of  2) 
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$ I DENT 

S ’JSERID 

S L3VL0AD 

S 0PTI0N 

S SELECT 

S SELECT 

S EXECUTE 

i LIMITS 

$ PRMFL 

$ °RMFL 

S PRMFL 

S PRMFL 

i DATA 

S INPUT 
A“3. 1 6, 

H=5. 2565/ 
CLAM* 1 • 9754/ 
DELAL*0. 1, 
ALMIN*0 • 0, 
ALMAX=90.0, 
AL  *0*0  5 
S EUDJ03 


CLEARY, NEUFFER  , 65  1 2 1 1 04RADC 
CLEARYSTitREE 

F0RTRAN 
CLEARY /0HCY 
CLEARY/0XSA 

10, 22K, , 10K 

07,  U,L, CLEARY/ ST0RE1 

08,  W,L, CLEARY/ 3T0RE2 

09, W,L, CLEARY/ ST0RE3 

10,  W,  L, CLEARY / ST0REA 
05 


Sample  Job  Stream  for  HEMISPHERE-CYLINDER  Program 


Source  Listing  of  the  HEMISPHERE-CYLINDER  Program 
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294FT  Ot  10-04-75  14.754 

C PWOIR4M  MbX-SHeRe  CYLINDER  < SUCV ) 

e 

eOHHeN/N*M/YYl«2j  u > # YY2(2UC0  ) . YT  3<2000  > # Y*4(  2000  ) » X*  < 20  00  ) , 1 1 
DIMENSION  XPaR(8> . YPAR<8» 

COMPLEX  EJR1.EJR2.FJR9,EJR11»ZV'ZVC»ZH.ZHC«SSV.SSh;RSMRSVi 

IRIH8SH 

BI*»EL  IST/I NPUT/A.H, clam, DEL AL.ALMIN.ALMAX.AL 

2000  rflRHAT<lMl,/////4  x.’INPUTS  - HEMI-SMERE  CYLINDER' * 

•P////2’X. 'RADI JS  OF  CYLINDER  IN  INCHES  14)  •|F14,7, 

•P//2PX. 'HALF  HEIGHT  OF  CYLINDER  IN  INCHES  <H|  a '.Fl4.7, 
P///29X. 'HAVE  l=N3TH  IN  INCHES  (Cl4m>  > '.F14.7, 

• ///2*X* ' INCREMENT  IN  ASPECT  ANGLE  IN  DEGREES  < DELAL ) > ',F14,7, 
IP//29X. 'MINIMUM  ASPECT  ANGLE  IN  DEGREES  IALMIN)  a ..F14.7, 
•#//29X. 'MAXIMUM  ASPECT  ANGLE  IN  DEGREES  ULMAX)  ■ '.Fi4,7, 
•///2*X. 'ASPECT  ANGLE  IN  DEGREES  <Ai)  a • , Fl4 , 7 » /1H1 ) 

2001  FORMAT (3X. *At' .3X. 'SV(OBSM) • »1X, 'Sh(DBSM) »»2X, 

•»TMETAV ,2X, 'TMETAH'//) 

2002  F0RMaT(1x.F7.2,1P?E9.2.0P2F8,3) 

INPUT  - NAMELIST  - input 
A ■ RADIUS  OF  CYLINDER  (INCHES) 

H ■ HALF  HT.  OF  CYLINDER  (INCHES) 

CLAM  • HAVE  LENGTH  (INCHES) 

dSlal-  increment  in  aspect  angle  (degrees) 

ALHlNa  MINIMUM  ASPECT  ANGLE  (DEGREES) 

AL*AXa  MAXIMUM  ASpECT  ANGLE  (DEGREES) 

ALa  A9PECT  ANGLE  (DEGREES* 
l ReAD(05, INPUT) 

WRITE (nO.200  0)  A.H. CLAM, DEL  AL.ALMIN.ALMAX.AL 
It  • 0 
THETA  « 0. 

RMV2  a 0. 

■MH2  • 0. 

•BLCl  • .f254a.  254 
Pt  • 3.14159265 
OTR  ■ PI/180. 
itD  a 18I./PI 
bblal  ■ DELAL*DTR 
ALMIN  ■ ALMlNaOTR 

aLhax  ■ aLmax*otr 
AL  • AL.OTr 
ALO  ■ AL 
C«  * 2 • *P I /CLAN 
Cl  * PI/2. 

C2  " P I /4 . 

C3  ■ 2 • *P I /3 . 

C4  * 2 . *CKa A 
C9  ■ 2.*CKaH 
e*  • 2 • /o . 

C7  a 4 . / 3 . 

C9  a C0S(C3) 
eio  a S I N ( C 3 ) 


00001000 

OCOOIOIO 
00001020 
00001030 
00001040 
00001050 
00001060 
00 001070 
OuOOiOiO 
00001090 
00001100 
00001110 
00001120 
000011^0 
00001140 
00001150 
00001160 
00001170 
00001180 
00001190 
00001200 
0r'00l210 
00001220 
00001230 
00001240 
00001250 
00001260 
00001270 
0000l2B0 
0000129Q 
00001300 
00001310 

00001320 
00001330 
00001340 
00001350 
OCO 01360 
00001370 
00001380 
00001390 
00001400 
00001410 
0r  001420 
O00C1430 
000°1440 
00001450 
00001460 
0C001470 
00001480 
00001490 
00001500 
00001510 
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2947T  01  10-06-75  14.754 

Cl 1 • l./(C9-l.) 

CNSBr  « 2.254827? 

10  TO  95 
10  It  * 11*1 

Cl?  * C4*SIN(A.) 

C13  ■ C5*C0S(*-> 

IF  ( C 1 3 . LE.  C MS  3C ) GO  To  30 
Cl4  » 06»Cl',»S39T(  A/CK) 

CBAUS2  * CK.  A 

ir  (AL  • EQ  • 3.  ) GO  TO  15 

ceAusi  * i./sI'Kad 

CCAUS  x CCaOSi 
jr  ( CC*US2*CCA JS l ) 15.15.25 
15  CC*U5  ■ CCAUS2 
25  CONTINUE 

C15  . SQPT(CCAJS) 

■SSS  s ♦SORT(Pl)** 

Cl 7 « 1./<C9-CDS(C7**L)  ) 

«S2SV  * 014*C13*(C17-Cll ) 

RS2Sr  = C14»C15*<C17*C11> 

RH1  *-C4-Cl3 
RH2  = 02-Cl2*C13 
CSRHi  s COS(RHl) 

SNRMl  = SlN(RHl) 

CSRH?  * COS ( RH2 ) 

S^H2  s SIN(RH2> 

EJR1  * CMPLX(CSRHl.SNRHl) 

Ed’2  * CMPLX(C5R42.SNRH2) 

ZV  * RSSS*EJR1  *RS2SV*L JR2 
Z*  * RSSS-EJR1  ♦ RS2SH*EJR? 

BO  T0  40 
30  DEl  * Cl-AL 

C23  * SQ»T( */< ;<»COS< DEL > > > 
p24  - 1.  ; 

C25  x C5«S I N ( 0 = L > 

If  (OEL  . EQ  . . > GO  to  45 

C2«  * (SIN(C?5» >/C?5 
<5  CONTINUE 
BMll  r Cl 

C S 4 H 1 1 S COS ( R 4 1 1 ) 

SNRHll  x SIM(RHU) 

EJ411  s CMPLXCSRH11.SNRH11) 

RSH8svs( -023»C 5.024 *F Jr n-C7#Ci  »C ?3.C il.COS < C25 ) ) 
RSH0SHx< -C23.C5»:24.EJpll*r7#Cl  *C?3*Cll*C0S(C25)  ) 
C2S  x C4*C0S(D=L> 

RH6  « -C26*C2 
CS4M*  1 COS(RHS) 

SNRH5  s >IN(Rm5) 

gj?9  s C''PUX(CSRh6.SNHh6) 

ZW  * R5MHSV*EJ49 
ZM  x RSmhSh.6j4? 

GO  TO  <p 


0 "001520 
00001530 
00001540 
00001550 
0C001560 
00001570 
OC 001 580 
00001590 
00001600 
00001610 
00001620 
0 jOu1630 
00001640 
00001650 
00001660 
00001670 
0 1 0 n 1 6 8 0 
00001690 

o:  001700 

O'!  001710 
U 001720 
00001730 
00001740 
00001750 
0 0 0 .11760 
0 C 0 r- 1 7 7 0 
0C0j1780 

000  h79o 

0 JO  'l500 
U 0001 310 
0C0T1320 
00001930 
000"1940 
00001350 
0 >001360 
00071370 
00001880 
000C1&9q 
0 ‘001900 
0 ‘001910 
0 0 ‘ 1 9?0 
0 0 0 n 1 9 3 0 
0 r 0 " 1 9 4 0 
o oo  :i?5o 
OC  0 .11960 
0 .0(1970 
0 : 0C19R0 
n .001990 
0^0°2100 
0 C 0 •’  2 0 1 0 
0r  002020 
0 0 0 02030 
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HOT  01  10-06-75  14.754 


40  fVC  • CONJG(ZV) 
tMC  ■ CON JQ ( Z H > 

H*  - zv«zyc 

M . ZHaZHC 
I8AU9V  * RE*L<SSV) 

RRAL9H  > REAKSS4) 

lglSvl*REAt.SV*4ELCl 

MI$V2  ■ 10.*A-05iU(RElSV1) 

*«U»M1  » Keals^eici 

•BlSw2  ■ 10.*A.03lU<RELSHl> 

RHV1«aTan2(A1HAQ(ZV)«REAL(ZVJ) 

CALL  UPDaT(RHV1,RHV2.PJ.THETAV» 

*mri.atan2(aimaq(zm);real(zh>) 

CALL  UP0AT(RHHl.RMH2.PI .THETAH) 
AL  a RTD.aL 

RR iTf ( 6 , 2002)  Al*  PELSV2,  RELSH2 
YTUlP  • REL3V2 
TY2 1 I I ) ■ RELSH2 
TY3 < 1 1 » a THETAY 
YY4(H)  * TMETAR 
XMll)  a AL 

AL  • D'PaAL 
AlNDx-II 

AL«A1N0X«DELAL  ♦ALO 
|F  (AL-ALMAX)  I'iIu.ZOu 
200  CONTINUE 
CALL  PLTijDT 
•0  TO  5oP 
95- CONTINUE 

MR  1 TE  ( 6 , 2r'01 ) 
tMETAV  # 0, 

TMETaH  « 0, 

■o  rg  io 

500  STOP 
iSD 


00002040 

00002050 

00002060 

00002070 

00002000 

00002090 

00002100 

00002110 

00002120 

00002130 

00002140 

00002150 

000021*0 

00002170 

00002180 

THEtaV,  ThETaH  00002190 

00002200 

00002210 

OG002220 

00002230 

00002240 

00002250 

00002260 

00002270 

00002280 

00002290 

00002300 

00002310 

00002320 

00002330 

00002340 

00002350 

00002360 

00002370 

00002380 
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mutl  - NBHX*«MlM  enXVDBl 

iitzoi  or  cnxvDii  xb  xbcbbi  U)  j.ieooooo 

llir  NIXOHX  or  CXIXBBBI  XB  XBCBBI  in)  i S.2B6M00 
BAfE  1IVOTN  XB  XBC|I>  (ClAfl)  ■ I’,975tt000 

XBfclEHiBT  XB  AfttCT  kB«ll  XB  BBOBlBB  (DUAL)  • 0.1000000 

NXIXRVN  All*CT  ABOfcE  XB  0*6*1**  (UHXB)  ■ 0, 

HAXXHUH  ASriCT  ABOU  XB  DB6IBBI  ( AlHAl)  ■ OO.OOfOOOO 


ASfECT  A|9U  XB  DB«BBBf  (Al)  • 


Sample  Output  for  HEMISPHERE -CYLINDER  Program 


kl  *V I DISH ) lli(lBiN)  tHltiV  TNIfAM 


.70-1.691 

01-1.614 

ul 

3.174 

i27927 

.90*1.698 

01*1.611 

01 

3. 180 

iaC935 

,90-1’,69f 

01-1,611 

*5T 

3.T83 

i57944 

.90*1.698 

01-1.614 

01 

3.191 

*2.952 

.10*1.698 

01-1.604 

jl 

3.198 

*2.96  1 

.20*1.698 

01*1.604 

01 

3'.  204 

*2.969 

.30*1.698 

01*1.604 

01 

3.210 

*2. 977 

.<*0*1 .698 

01-1.601 

01 

1.217 

•2.984 

.io*r.<98 

01-1.601 

01 

r.2  J3 

-27 992 

.60*1.698 

01*1.604 

01 

3.230 

-3,000 

.’0-1.698 

01-1,604 

.1 

3.236 

i3.007 

.10*1.698 

01-1.604 

01 

3.243 

i3'.014 

.90*1.698 

01-1.604 

: 1 

1.250 

•57  02 1 

.90*1.698 

0 1*1 . 6 l4 

01 

3’.  257 

•3.028 

,10il7498 

01-1, *il 

01 

27264 

-37o53 

.20*1.698 

01-1.614 

oi 

3.271 

*3.041 

.30*1.698 

01-1,614 

01 

3.278 

-3’.  047 

.<*0*1 .698 

01-1.624 

01 

3.296 

-3,053 

.10*1,698 

01-1,624 

oi 

3.293 

-3,059 

.90-1.698 
'.’Oil',  698 

0 1 * 7 j62i 
01-1.634 

01 

61 

3>S01 

3.308 

?i;o«5 

•53.070 

.90-1,698 

01-1,634 

01 

3.316 

i3j07S 

.90-1.698 

01-1.644 

ul 

3.324 

•3'.  080 

.00-1.698 

01-1,644 

oi 

3>132 

-3;085 

.10*1,698 

01-1.65* 

oi 

3.340 

-3.089 

. ?(J- 1.$98  5.1-1, 4 6|  Ql 

1*1 4 8 

;3,Q93 

.30*1.698 

01-1,664 

oi 

3.357 

•3.096 

,<*0*1,698 

01-1,674 

01 

3.J65 

iS^lOO 

,80*1.698 

01-1.484 

Oi 

3.373 

•3.103 

.60-1.698 

01-1.494 

01 

3,382 

i3,l05 

.’0-1.698 

01-1.494 

01 

3.391 

-3.107 

,80-1,698 

0171.504 

Ql 

3;s?? 

•J^IO* 

•3.110 

.96*1.698 

oi-i.5il 

01 

3.408 

.90*1.698 

01-1.528 

01 

3.817 

*37  1 1 1 

. 10-1,698 

01-1,534 

01 

3.426 

*3.112 

.20*1.698 

01-1.544 

01 

3.435 

-3'.  1 1 1 

.30-1.698 

01-1.564 

oi 

3’.  44  5 

—3.111 

.60-1.698 

01-1.574 

oi 

3.454 

*3'.109 

.Soil. 698 

01-1,584 

oi 

3’.  564 

i3'.  107 

.60-1.698 

01-1.594 

01 

3.473 

•3. 105 

.’0*1,698 

01-1,604 

.1 

3.483 

*3’,  102 

.80*1.698 

01-1.624 

01 

3.493 

•3.098 

.90-1.698 

01-1,634 

01 

3.503 

-3.093 

. 00* 1 ,698 

01-1 .654 

oi 

3.513 

•3.087 

.^0*1,698 

01*1.664 

j1 

3.523 

• 3 . 08 1 

.20-1.698 

01-1.684 

01 

3.533 

-3.073 

,30*1.698 

01-1.694 

oi 

3.543 

-3.085 

.60-1.698 

01-1 ,7l4 

01 

3,554 

*3.056 

.50-1,698 

01-1.724 

jl 

3.564 

*3.045 

.60*1.698 

01-1.744 

oi 

3 • 5 ’ 5 

-3.033 

,’0-1.698 

01-1.764 

:1 

3.586 

• 3'.021 

.90*1.708 

01*1.774 

01 

3.597 

-3.007 

.90*1,708 

01-1.794 

jl 

3.608 

-2.991 

.00-1,708 

01-1.614 

01 

3.619 

-2.974 

. 10*1.708 

01-1.634 

01 

3.630 

-2.956 

.20-1,708 

01-1.644 

01 

3.642 

-2.936 

,30-1.708 

01-1.664 

oi 

3.653 

• 2’.  915 

.60-1,708 

01-1,884 

01 

3.665 

-2.893 

, Sq* 1.708 

01-1.694 

jl 

3.676 

-2.868 
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I 


11. 

11. 

11. 

11. 

12. 

12. 

12. 

12. 

12. 

12. 

12. 

12. 

12. 

12. 

15. 
13. 
13. 
13. 
13. 
13. 
T37I 
13. 
13. 
13. 
1«*. 
1“. 

T67* 

10. 

40. 

i». 

16'. 

16. 

~vr. 

16. 

13. 

13. 

13. 

13. 

13. 

13. 

15. 
13. 
13. 
13. 

167? 

16. 
16. 
1«. 
16. 
16. 
16. 
16. 
16. 
16. 
1’. 
12. 
12-. 
12. 
12. 


1,70*  01 
1.701  01 

morn 

1.70*  01 
1.701  Oi 
1.701  01 
1.70*  01 
1.70*  01 
T.TOI  01 
1.701  01 
1.70*  01 
1.70*  01 

1.701  01 
1*70*  01 
r.7o»  ei 
1,70*  01 
1 ,70*  01 
1.70*  01 
1,70*  01 
1.70*  01* 
r.76ioT-i 
1,70*  01* 

1.701  01 
1,701  01 
1,70*  01 
1.70*  01 
17701  01 
1.70*  01 
1 .70*  01 
1,70*  01 

r.7o*  01 

1,70*  01 
i775*  51 
1,69*  01 
1,09*  01 
1,69*  01 

1.691  Oi 
1,69*  01 

1769f ‘Oi 

1.69C  01 
1.69*  Oi 
1 .69*  01 

1.691  01 
1,69*  01 

17601  n 

1,69*  01 
1,69*  01 
1,69*  01 
1.691  01 
1,69*  01 
17691“  07 
1.69*  01 

1.691  01 

1.691  01 

1.691  01 
1,69*  01 
17 691  01 

1.691  01 

1.691  01 


1.06«  Oi 
1.970  Oi 
1.011  01 
1.990  Oi 

1.99 r 01 
2.000  oi 

2.600  Oi 

2.000  01 

2.000  Oi 

1.990  Oi 

1.100  oi 

1.990  oi 
1.970  Oi 

1.900  0 1 
1.950  Oi 
1.940  Oi 

"171H  or 

1.910  Oi 

1.900  Oi 

1.000  0 1 
1.070  01 
1.050  Oi 
l.fjl  Oi 
1.620  Oi 
1.000  Oi 
1.760  Oi 
1 .770  Oi 
1.750  oi 

^T.Tjfol 
1.720  Oi 
4.700  Oi 

1.600  Oi 
4.670  Oi 
1.660  Oi 
1.640  01  “ 
1.630  oi 
1.620  Oi 
1.610  01 
1.600  Ol 
1.580  01 
17171  61 
1.560  01 
1.560  01 
1.550  01 
1.540  01 
1.530  Cl 
17530  01 ~ 
1.520  oi 
1.510  01 

1.510  oi 

4.510  Oi 

1.500  Oi 

T.  561  61" 

1.500  Oi 

1.500  Oi 


3.724 

3.737 

1.740 

37762 


•277 

•277 

•2.6 

•276 


3,774  j2>6 

I.7I7  41.5 


37600 

3.813 

3.126 

3.039 


•2.3 
i273 
•27  4 
•274 


3.152  *2.3 

3.105  i2. 3 
3.079  *2.3 


3.192 

3,906 

3.920 

3.934 


•2.2 
•27  2 
•2.2 

i27i 


I7040“-27i 
3.962  *2.1 
37976  ;>70 

37190  *27 0 
47604  .270 

4.619  .2.0 

47631  6171 
0.048  .179 

4.663  ;479 

4.676  *1.9 

47092  .479 
0.107  il.9 

0.137  il.0 
07133  i470 
0.460  .1,0 

6.103  il70 
0.199  .1.8 

4.216 .171 

4.230  il,® 
47245  -1.7 

4.361  ii.T 
47277  ;i.7 

4.293  • 1. 7 

"07060  il.  7 
0.325  -1.7 

07361  il77 
0.357  if.  7 
07173  -177 

0,309  ;i'7 

07606  “il. 7 
0.422  .1.7 

47430  il77 
0.435  ii77 
67672  —1.7 
6.680  il.7 
67  565  *177 
8.522  .1.7 

4.539  6 1.7 


IV- 3 30 


l7.8o-1.09E 

01 

1.30< 

01 

4,636 

-1.710 

17.60-1.698 

01 

i.soi 

01 

4 '.  j 7 3 

; 1.707 

l7'.7oir,89E 

01 

1.S0I 

H 

a;m 

4.608 

;r.T63 

17.10-1. 69E 

01 

1.30# 

01 

-1.699 

l7.0oii,69E 

01 

i.soi 

.i 

4.6  25 

-1.695 

18.00-1.69E 

01 

1 ,30t 

01 

4.642 

•1,691 

l8.Jo-1.69E 

01 

i.sii 

Qi 

4.660 

-1,607 

l8.20-1.69E 

01 

1.91# 

01 

4,678 

* 1 ’.  6 1 2 

i8.30-r.69E 

01 

i.Sif 

ol 

ijn 

*1,077 

18.U0-1.69E 

01 

1 . 32# 

01 

4.913 

-1,072 

l8.30-l.69E 

01 

1.53* 

4.931 

ii;.666 

18.60-1 .69E 

01 

1.33  i 

Oi 

4.949 

i 1 ’.  6 6 0 

i8.7q-1.69E 

01 

1 . Su# 

Qi 

4.967 

*1.033 

18.80-1 ,69E 

01 

1.358 

01 

4.986 

-i;646 

1 8 . 9o- 1 • 69E 

01 

1.361 

jl 

4.i04 

iitese 

19.00-1 ,69E 

01 

1.366 

01 

4.823 

-1.030 

l9.10-l.69E 

01 

i.37i 

oi 

4'.  841 

*1.021 

19.20-1 ,692 

01 

1.396 

01 

4.860 

il  .012 

19,30-1. 69E 

01 

1.606 

oi 

4,879 

-1,601 

19.U0-1.69E 

01 

1.618 

01 

4.898 

-1.590 

l9.Soil.69E' 

01 

1.628 

oi 

4^,919 

ir.570 

l9.6o-l.69E 

01 

1.638 

01 

4,937 

-1.565 

l9.7o-1.69E 

01 

1.656 

01 

4.936 

•1,551 

19.80-1.69E 

01 

1.661 

01 

4.976 

•1.536 

19,90-1 ,69E 

01 

1.686 

oi 

4.996 

•1,520 

2C,?0?1^69i 

Qi 

1.696 

Q 1 

5^015 

*1,552 

20.J0-1.70E 

01 

1.716 

01 

5.635 

•1,484 

20.20-1.70E 

01 

1.726 

01 

5.  q56 

-1 .463 

20.30-1 ,70E 

01 

1.7U6 

01 

5.676 

•1 .442 

2O.U0-l.70E 

01 

1.766 

01 

5.096 

iV.U19 

20.80-1 ,70E 

01 

1.77* 

01 

5.117 

•1,394 

20.60-1.70E 

20.7oii.70E 

01 

oi 

1,796 

i.aoi 

01 

>.  1 

5,138 
3^  159 

i 1 j 367 
i 1^339 

20.80-1 ,70E 

01 

1.826 

01 

5.180 

• 1 '.  3 0 9 

20. 90-1,701 

01 

1.63E 

J 1 

5.201 

*1.278 

21 .00-1 ,70E 

01 

1.856 

01 

5.222 

i 1 2 U U 

2i.10-i.70E 

01 

1.866 

ji 

5.2UU 

*1.209 

21 .20-1 .70E 

01 

1.686 

01 

5.265 

-1,172 

2i.3oii.70E 

ci 

1.896 

.1 

5.287 

- 1 , 1 3 3 

21.U0-l.70E 

01 

1 .906 

oi 

5.309 

-1.093 

2 1 . *0-1 , 70E 

0 1 

1.916 

■ 1 

5.331 

•1.051 

21 .60-1 .70E 

01 

1.916 

01 

5.353 

-1.009 

21.70-1.70E 

01 

1 .92E 

01 

5.375 

*0.965 

21 .80-1 .70E 

01 

1.921 

01 

5.398 

•0,921 

21.9oil.70E 

01 

1.936 

- i 

5.420 

-0.876 

22.00-1 ,70E 

01 

1.93E 

01 

5.UU3 

•0.830 

22. 10-1 .70E 

01 

1.92E 

.,1 

5.466 

-0.785 

22.20-1.70E 

01 

1.926 

01 

5.488 

•0.741 

22.3o-i.70E 

01 

1.91E 

. 1 

5.611 

-0,697 

22.U0-1.70E 

01 

1 .906 

01 

5. 534 

•0.653 

22.3o-l.70E 

01 

1.906 

9 

5.650 

*0 • 6 1 1 

22.60-1.70E 

01 

1.886 

01 

5.681 

•0.571 

22.7o-l.70E 

01 

1.676 

:l 

3.60U 

•0.531 

22.80-1 ,70E 

01 

1 .666 

01 

5.627 

•0.493 

22.90-1.70E 

01 

1 • 6uE 

1 

5.651 

•0.457 

23.00-1 ,70E 

01 

1.636 

oi 

5.674 

-0.422 

23.Jo-i.70E 

01 

i.6l# 

; 1 

5.698 

- 0 * 3 8 9 

23.20-1.70E 

01 

1.606 

01 

5.721 

•0.358 

23.30-i.70E 

01 

1.786 

01 

5.745 

•0.328 
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23.H0-1.70I 

01-1,761 

01 

5,768 

707300 

23.00-1.701 

01-1,751 

ol 

5.792 

•0.274 

33 .10-1,70* 

oiir.7j| 

01 

i.w 

-0.249 

23. 7o-1. 701 

01-1,711 

Ol 

5.639 

•0.225 

23.lo-1.701 

oi-i.Tof 

of 

5.163 

•0.203 

23.10-1, 191 

01-1.681 

ol 

$.687 

•0.192 

24. 00-1. 691 

01-1.671 

ol 

5.8 1 1 

707162 

2**,  10-1,691 

01-1,651 

ol 

5.935 

707144 

2H.20-r.<9|  01  — 9 .141  01 

5.931 

•0.136 

24 .90-1,691 

01-1.631 

ol 

5.982 

70.109 

2H.H0-1.69I 

01-1. 6li 

01 

8.906 

707094 

2H.S0-1.69E 

01-1.601 

ol 

6.930 

•07079 

2H.  60-1. 691 

01-1. I9i 

01 

6.954 

707064 

2H.7o-l.69E 

01-1.58* 

ol 

6.978 

707050 

2H.  loin  691 

Ol-1 .57t 

61 

6*.  102 

•0.037 

2H.90-1.69E 

01-1,561 

01 

6.125 

•0.025 

25.0O-1.69E 

01-1.551 

ol 

6'.  149 

-0.013 

23.10-1.66B 

01-1,651 

0< 

6.173 

•O'.  001 

23.20-l'.66B 

01-1.541 

ol 

6’.  197 

07010 

25.30-1*681 

01-1.541 

ol 

•*321 

0,022 

23;B0ii;i8f 

oi-r.5ji 

or 

6.245 

0.032 

25. Bo-1, 681 

oi-i. sai 

ol 

6.270 

0.043 

23.60-1,68* 

01-1.521 

ol 

6,294 

0.054 

25. 70-1,681 

01-1.521 

01 

6,318 

0.064 

25.90-1,681 

01-1.121 

ol 

6.142 

07075 

25. 90-1.681 

01-1.521 

01 

6.367 

0.085 

26.6o-i7f¥I 

01-1.521  01 

67191 

”67  099 

28.10-1,681 

01-1.521 

01 

6,415 

O'.  106 

26.20-1,681 

01-1.521 

ol 

67640 

O'.  117 

26.20-1,681 

01-1.531 

ol 

6.465 

0.129 

26. Ho- 1,681 

01*1. Sli 

ol 

6U89 

O'.  140 

26.10-1,681 

01-1,541 

ol 

6,SlH 

26.66-1 ,6fl 

6T-1 ,§4| 

61 

6.539 

0.164 

26.70-1, *81 

01-1. SSI 

ol 

6.564 

07177 

26.80-1,681 

01-1.361 

01 

6.390 

O'.  190 

26.90-1,691 

01-1.571 

01 

6.615 

0.204 

27.00-1,691 

01-1.571 

01 

6'.  641 

07219 

27. 10-1.691 

01-1,581 

Ol 

6.666 

0.234 

2^.20-1,691  01-1.801 

01 

67892 

0 . 250 

27. 10-1. 691 

01-1,611 

ol 

6.718 

0.268 

27.H0-1.69E 

01-1.621 

01 

6.745 

0.266 

27. 50-1.691 

01-1.631 

ol 

6.771 

0.305 

27.60-r.69B 

Oi-i .651 

01 

6.798 

0.326 

27.70-1,691 

01-1.661 

01 

6.825 

0.347 

mi  6-r.69r  ot-t.iii 

91 

8.152 

• 07370 

27. 90-1,701 

01-1.691 

ol 

6.879 

0.395 

28.00-1.701 

01-1.711 

01 

6.906 

0.421 

28.10-1,701 

01-1,731 

ol 

6.934 

0.HH9 

28 . 20-1‘,  701 

01-1.741 

01 

6.962 

07479 

28,30-1.701 

01-1,761 

cl 

6,990 

0.510 

28,80ilVT01  01-1,781 

01 

77018 

07544 

28. 30-1.701 

01*1.791 

01 

7.946 

0.579 

28.80il.701 

61-1. Ill 

01 

77975 

0.  • 1 7 

2". 70-1,701 

01-1.621 

01 

7.104 

0.657 

28. 10-1,701 

01-1,641 

ol 

77133 

O’.  691 

28.90-1,711 

01-1,651 

01 

7.162 

07742 

29.90-17711 

01-1.661  01 

77192 

0.711 

29. 10-1.711 

01-1,661 

ol 

7.221 

0.535 

29. 20-1.7H 

01-1. Ill 

ol 

77251 

07684  rv.332 

29, 

30 

1.71* 

01 

1.99* 

Oi 

7'.  281 

0J34 

29, 

.40 

1.71* 

01 

1.901 

01 

7’.  311 

O’.  986 

29, 

50 

r.TTi 

01 

Ijol 

oT 

7;  351 

17638 

29, 

.60 

1.71* 

01 

1.901 

oi 

7'.  372 

1.090 

29 

Jo 

1,7 1* 

01 

1.90* 

01 

7.  *02 

1'.  143 

29, 

.90 

1.71E 

01 

1.90i 

01 

7.433 

1.195 

29 

.90 

1 , 7 1 E 

01 
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32.260 

25.949 

83.30-1 , JOE 

01-1,24* 

01 

32.269 

25.952 

83.U0-1.32E 

01-1.25* 

01 

32.277 

25.955 

83.5o-1.33E 

01-1.27* 

01 

32.285 

25.957 

83.l0-1.36E 

01-1.29* 

01 

32.292 

25.958 

83.7o-l.38E 

01-1.32* 

01 

32.299 

25.958 

83.«0-1 .ttiE 

01-1.35* 

01 

32.306 

25.958 

83.9Q-1. USE 

01-1.39* 

01 

32.312 

25.957 

8tt.00-1.49E 

01-1.43* 

01 

32.318 

25.955 

84.1o-1.53E 

01-1.47* 

01 

32.323 

25.952 

8tt.20-1.38E 

01-1.53* 

01 

32.328 

25.947 

8tt.3o-1.64E 

01-1 ,59* 

oi 

32.333 

25.940 

84.40-1, Tie 

01-1,66* 

oi 

32.337 

25.932 

8tt.Bo-1.79E 

01-1.74* 

01 

32.341 

25.920 

8tt.6o-1.88E 

01-1,84* 

01 

32.345 

25.905 

84.70-1 ,99E 

01-1.95* 

V,1 

32.348 

25.884 

84.80-2. 13E 

01-2. 08E 

01 

32.352 

25.855 

84.9o-2.29E 

01-2,24* 

01 

32.355 

25.812 

B5.0O-2.5OE 

01-2,45* 

01 

32.359 

25.744 

85. 10-2.79E 

01-2.71* 

01 

32.364 

25.622 

85.20-3.24E 

01-3.07* 

01 

32.374 

25.361 

B5.30-tt.28E 

01-3,44* 

1 1 

32.423 

24.709 

85.ttfl-4.00E 

01-3.26* 

01 

35.446 

23.836 

85.80-3, 1 1E 

01-2.84* 

01 

35.478 

23.430 

B5.6o-2',68E 

01-2.51* 

01 

35.485 

23.257 

85.7q-2.39E 

01-2.26* 

Jl 

35.487 

23.166 

85.80-2. 17E 

01-2.06* 

01 

35.488 

23.110 

B5.90-1.99E 

01-1,90* 

.1 

35.487 

23.072 

8f.00-1.84E 

01-1.76* 

01 

35.486 

23.043 

86. 10- 1,7  IE 

01-1,64* 

01 

35.484 

23.021 

86 .20-1  ,C3E 

01-1 .03* 

01 

35.667 

23'.  177 

B6, 30-9.71E 

n0-9,7lE 

0 

35.670 

23. 170 

86.40-9, 15E 

00-9.15* 

00 

35.673 

23.163 

86.50-8.63E 

00-8.63* 

jO 

35.675 

23.156 

86.60-8, 14E 

00-B, iu* 

00 

35.677 

23.150 

B6.7o-7.68E 

00-7,68* 

00 

35.678 

23. 144 

86.8fli7.25E 

00-7.25* 

00 

35.679 

23.139 

86.90-6.83E 

00-6 , B 3E 

00 

35.680 

23.134 

87.00-6.44E 

00-6.44* 

00 

35.681 

23'.  130 

87. 10-6. 07E 

00-6,07* 

jO 

35.682 

23.125 

87.20-5.72E 

00-5.72* 

00 

35.683 

23’.  121 

B7.30-5.39E 

00-5,39* 

00 

35.683 

23,117 

87.40-5.07E 

00-3,07 * 

00 

35.684 

23'.  11 4 

87.5o-u.78E 

00-4.78* 

jO 

35.684 

23.110 

87.60-4.49E 

00-4.49* 

00 

35.684 

23'.  107 

87.7o-4.23E 

00-4.23* 

oo 

35,685 

23.104 

87.80-3.98E 

00-3.98* 

00 

35.685 

23'.  101 

87.9o-3.74E 

00-3,74* 

00 

35.685 

23.098 

88.00-3.31E 

00-3.51* 

00 

35.685 

23.096 

88. 10*3, JOE 

00-3.30* 

JO 

35.685 

23.093 

88.20-3.10E 

00-3.10* 

00 

35.68$ 

23'.  091  jv  .342 

e. Jo-2, 121  00 

6.6Q«2‘.74*  00 

*7to«2r.Hr  oo 
6.60^2,43*  oo 
®.f0»2.27*  00 
8.I0-2.1TI  00 
B.90-2'«0SI  00 

9.00- l'.*4*  OQ 

97T6'»i*ni"oo 

7.20-1.76*  00 
7.30^1.67*  00 

7.00- 1.621  00 
7. #0-1.57*  00 
7 . #0-1.52*  00 

~#.^0-1. 49*  00' 
9.80*1,46*  00' 
7.90-1,45*  00' 
0.60-1. 0U|  00' 


2.92#  00  35.685 

2.741  00  35.66} 

xnno  ~j#ynr 

2.43#  00  35.685 

2.29#  00  35.685 

2.47#  00  35.685 

2.05#  0#  35.685 

1.94*  00  35.685 

in5Fiinr.iii 

1.76#  00  35.684 

1.69#  Od  35.684 

1.62#  00  35.684 

1.57#  00  35.684 

1.12*  00  35.684 

1 . 49*  Od  35,684 
1.46*  00  35.684 

1.45#  jO  35.684 
1.64#  00  35.684 
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RADAR  SCATTER  FROM  MISSILE  Program 


1.  Introduction 

The  RADAR  SCATTER  FROM  MISSILE  Program  was  original- 
ly developed  by  Cornell  Aeronautical  Laboratory,  Inc.  Background  infor- 
mation related  to  this  program  can  be  found  in  CAL  Report  No.  ER/RIS- 
10,  page  128,  "Radar  Scattering  Analysis",  Aug.  1966  and  in  the  documen- 
tation for  Contract  AFAL-TR-67-343,  page  8,  "Investigation  of  Scattering 
Center  Theory",  Dec.  1967. 

2.  Abstract 

Based  on  the  Geometrical  Diffraction  Theory  (GDT),  the 
RADAR  SCATTER  FROM  MISSILE  Program  computes  polarization  radar 
cross  sections  in  dBsm  and  scattering  phases  with  respect  to  incremental 
values  of  aspect  angle  for  a missile-type  object  with  shape  shown  in 
Figure  IV-8  . 

3.  Computer  Program  Operating  Environment 

a.  Computer 
HIS-6000 

b.  Source  Language 
FORTRAN  Y under  GCOS. 

c.  Memory  Requirement 
23K  words 

d.  Typical  Processing  Time  Required 
0.0157  hrs.  (56  seconds) 

e.  Peripheral  Equipment  Requirement 

Four  disc  files  (file  codes:  07,  08,  09,  10) 
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4.  Inputs 

The  inputs  which  are  needed  for  the  execution  of  the  RADAR 
SCATTER  FROM  MISSILE  Program  are  as  follows: 

HI  - Half  height  in  inches  of  nose  cone. 

H2  - Half  height  in  inches  of  body  cylinder. 

H3  - Half  height  in  inches  of  body  frustum. 

H4  - Half  height  in  inches  of  tail  cone. 

A 1 - Radius  in  inches  of  nose  cone  base. 

A2  - Radius  in  inches  of  tail  cone  base. 

CLAM  - Wave  length  in  inches. 
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AL  - Initial  aspect  angle  in  degrees. 

DELAL  - Increment  of  the  aspect  angle  in  degrees. 

ALMAX  - Maximum  aspect  angle  in  degrees. 

Inputs  HI  to  A2  are  illustrated  in  Figure  IV-8. 

Input  Format 

The  above  inputs  are  entered  into  the  program  through 
NAMELIST  format.  The  mnemonic  variable  INPUT  is  used  as  the  NAME- 
LIST  name.  The  first  input  card  must  contain  a $ followed  by  INPUT 
(i.  e.  , $INPUT).  After  the  $INPUT  the  data  items  must  follow  in  the  format 
of: 

Variable  1 name  = (value). 

Variable  n name  = (value)  $ 

Each  data  item  must  be  separated  by  commas.  Following  the 
last  input  data  item  a $ must  be  included. 

By  changing  the  above  inputs  the  user  can: 

o vary  the  radar  frequency  and  polarization  of  the  transmitting 
and  receiving  antennas, 

o vary  the  size  of  the  target. 

5.  Output 

Output  from  the  RADAR  SCATTER  FROM  MISSILE  Program 
first  contains  a listing  of  the  input  data.  Secondly,  the  output  contains  a 
list  of  the  aspect  angle  (ALD)  at  each  increment  value  from  the  input  mini- 
mum to  input  maximum  versus  the  following  parameters: 

SV  (variable  name  RELSV2)  - the  vertical  polarization  for  the 
radar  cross  section  in  dBsm. 

SH  (variable  name  RELSH2)  - the  horizontal  polarization  for 
the  radar  cross  section  in  dBsm. 
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THETAV  - scattered  phase  in  radians  of  the  vertical  polariza- 


THETAH  - scattered  phase  in  radians  of  the  horizontal  polari- 
zation. 

Through  a call  to  the  subroutine  PLTGDT  four  data  files  are 
built.  Each  file  contains  the  data  of  one  of  the  above  listed  output  parame- 
ters. That  is, 

file  07  contains  the  data  of  SV, 

file  08  contains  the  data  of  SH, 

file  09  contains  the  data  of  THETAV,  and 

file  10  contains  the  data  of  THETAH. 

The  aspect  angle  (ALD)  is  not  recorded  on  a separate  data  file. 
The  aspect  angle  can  be  easily  computed  for  the  above  data  by  using  the 
minimum  aspect  angle  and  the  increment  value  of  the  aspect  angle,  both 
of  which  are  recorded  on  each  of  the  files.  That  is,  at  any  Nth  increment 
the  aspect  angle  is  equal  to  the  minimum  aspect  angle  plus  N times  the  in- 
crement value. 

The  output  may  also  contain  printout  from  the  3 subroutines 
AXIAL,  RTSIG,  and  BDSD.  AXIAL  will  produce  values  for  the  variables 
X,  JO,  Jl,  and  J2  which  are  associated  with  the  Bessel  function.  Also, 
values  for  the  variables  AUX  or  CPI  may  be  printed  out  via  AXIAL.  Sub- 
routine RTSIG  may  cause  printout  of  the  variable  ALPHA.  Subroutine 
BDSD  may  output  values  for  the  variables  AUX2  or  AUX3,  or  just  the  sub- 
routine name,  BDSD. 
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IDENT 

CLEARY,  NEUFFER,  65121 104RADC 

USERID 

CLEARY  $THREE 

LOWLOAD 

OPTION 

FORTRAN 

SELECT 

CLEARY/OMI SS 

SELECT 

CLEARY /OXSA 

EXECUTE 

LIMITS 

05,  23K, , 10K 

PRMFL 

07,  W,  L,  CLEARY /STORE  1 

PRMFL 

08,  W,  L,  CLEARY/STORE2 

PRMFL 

09,  W,L,  CLEARY/STORE3 

PRMFL 

10,  W,L,  CLEARY /STORE4 

DATA 

05 

$INPUT 
Hl  = l.  62, 

H2=2.  50, 

H3=l.  60, 

H4=0.  432, 

A1=0.  9, 

A2=l.  7, 

CLAM=1. 0, 

AL=0.  0, 

DELAL=0.  1, 
ALMAX=  180.0$ 

$ ENDJOB 


Sample  Job  Stream 
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Sample  Listing  of  the  RADAR  SCATTER  FROM  MISSILE  Program 
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nonn no  on  noon 


7007T  at  11-26-75  11.52? 


C «ADA»  3C*TTE«  f POM  MISSILE 

COMMON/NaH/YVK  2 J'l.  ).Yy2(2.10).YY3<2u,'!0>.YY4<203G), 

•gX(2oo  >) , 1 1 

•E*L  n2, g3,u4 

COMPLEX  CAUX,  l\l.  ZH,  Cl.  C2.  EXPPl.  EXPH2 
NA'’ELlST/INPjT/rU.H2,H3,H4,Al,A2,CLAM.AL.0ELAL.ALMAX 
PJ*3. 14159265 
BTP*f>I/lH"  ,C 
■RT0«18'1.  U PI 
CNS0c*2. 255 

|ELCl»l..]/(39.  57*39.37  ) 

N«0 


input  - namelist  - input 

CDl  HM»r  wEIGHTS  H INCHES  OF  WOsE  ClnE  Ml),  BODY  CYLINDER  H2J, 
BODY  FruSTUM  ( H 3 ) » TAIL  CONE  (H4). 

cD2  radii  in  inches  op  nose  cone  rase  un.  tail  cone  sase  u2> 
and  Nave  lENGTm  in  inches  (CLAM). 

CD3  ANGLES  in  degrees  OF  ASPECT  (AL).  INCREMENT  IN  ASPECT  (OELAD, 
MAXIMUM  ASPECT  (ALMAX). 

1 R6*D(0t>.  INPUT,  =<10  = 555) 


0 C 0 . 1 3 0 0 
000,1310 
o:n  uo2o 
00051331) 
000  1040 

ono J1050 

00031060 
O/OU07O 
OCO^ICBO 
000' 1590 
OCO  J11O0 

ocoomo 
00001120 
0 •"  0 r 113  0 
00001140 
0G05115Q 
0 no  0116 u 
00011170 
OCOCllftO 
OC 051 190 
000O1200 
000J121U 
000  •-»  1220 
0000123c 
00001240 


c 

c 

«RlTs<  '6.200)  Hl.H2.H3.M4,  A1.A2,ClAM,aL.DELA'.,  A.MAX 

c 

2000  F0PMaT(1H1,/////49X, • INPUTS  - SCATTER  FROM  MISSIL'I'. 

•/////2*x. 'HALF  HEIGHTS  IN  INCHFS  OF  NOSE  CONE  (HI)  = '.F14.7, 

• ///5?X.'uF  ROOT  CYLINDER  ( H?  > S • » F 1 4 . 7 , 

*//75?X.'0F  BODY  “PUS  TUM  (H.O  = '.F14.7. 

•///5?X.'tP  TaI-  CONE  (H4)  r ',Fl4.7, 

• ✓//29X . * HAD  I I U INCHES  OF  ;„OSE  COuE  BaSE  ( A 1 ) * '.F14.7, 

• // /4  5 x * ' OF  TaI.  CONE  Hasp  (A2)  s ’,Fi4.7, 

*///2qX.  • ,AVE  L i H jTH  in  INCHES  (CLAM)  s '.F14.7, 

•///29X* ' ANGLES  IN  DEGREES  OF  aSPFCT  (Al)  s»,Fi4.7, 

*///47X.',F  INCREMENT  IN  ASPECT  (I’tLAL)  s ' , F 1 4 . 7 , 

• // 74  7 X • ' TP  HAxHJM  ASPLCT  ANGLE  < A)  M «.  x ) s ',F14.7. 

*/l Hi) 

C 

c 

IF( Al.GE. . AYO.AL.LT .IP  . . ANU. ALHAX . UE.o .0 , ANU. ALMAX .LF.18C .0 
X.4ND.DE.LAL.GT.  0.  ) GO  TO  2 
MRITE(6,2'*i;) 


o;:o:i253 

0:0?126o 

050C1270 

o:u  11280 

050 C 1290 
050  1300 
0 0 0*1310 
05001390 
31001330 
00051340 
UCOr 1350 
n:o  1360 

0 ■'  0 • 1 37(j 
C ^0  51380 
0C0'1390 
o:o'i4oo 

O.O'lMu 
CTO  '1420 
0 0 14.33 
0 : 0 • 1440 
(k  0'  1450 


2ol0  F04MaT(45H  aspect  DR  ITS  RANGE  UR  T T 5 INCREMENT  ILLEGAL) 
80  TO  S5*j 
2 WRITc(H,2' 01) 

2001  F0RMaT(//67H  a5P=CT  ANGLE  PCS  V PCS  H 

x theta  h/Wh  (degppes)  (o;<S‘t)  (phsm) 

XAN>)  ( R A 0 I A 43  > / ) 


o r o : 1 4 6 u 

0. 0.1 4 7 3 
0 0C14BU 
THETa  V 0 30  '1490 
(RaDIOCG. 1500 
OCO  J 5 1 0 
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700*T  01  11-26-75  11.528 

0K»2. 0*P! /CLAM 
*e»ATAN2( Al*2. 0*H1) 

*Fl«*T*N2(A2-Al»2.U*H3) 

*F2» *M2 ( a2 , 2 • J *H4 ) 

ALC1«ATan2( A2-A1.2.0»(H2*H3) ) 

N2«1-0*XC/PI 

N3«1.0-Xfl/Pl 

N4»i.o*<xri»xr2)/Pi 

u»o 

■MV2»0 • 0 

IMH2.0.0 
• MEUV*Q.r 
f MET  AH*0 . r 
AUO*AL 
10  eO  JTfNUE 
AL«ALO*DTR 

X1»2.0»CK*A1»SIN(AL) 

*2*2. 0*Ct<*A2«SH(  AL  ) 

MJ«4.0*CK*H2»CD3<  AL) 

»3«4.0*CK*H3*C3S< AL) 

IV»<0.0, J.O) 

2KIS  ( 0 . O.u.O) 

C CONTRH'S  PROM  S7 

JFUl.GT.ALC1. AND. AL.LT , < P I - XF2 ) ) no  TO  14 
JFUl.LT. pi/2.0)  GO  TO  12 
JF  ( AL  . 'ST  . P l /2  . J ) 30  TO  13 

12  AR3*? . 3* (P xF2 ) 

6AlL  AXUL<N4> A2.CK,Xz, ARU. AA.Btf.CC) 

AUX*4.0#cK,H3 

f A OXsCMP^X ( 0 , ' • A JX ) 

CAJXsCEXp(CAOX) 

01*AA*CAijX*CrtP.X{  .0,-RB>*CAuX 

C2*CC*CAUX 

l V*Z V*Cl *C2 

2H«z-t»ci-r2 

00  TO  14 

13  <*Xr2 

eAt-L  AXULCN4,  A2.CK.X2,  ABJj.AA,  BB,CC> 

AUX*-4 . r.*CK*H3 
CA  JX*C:’PLX(  C . » A J X ) 
eAJX*CRXP(CAuX) 

C1*AA*Ca  JX*CMP.X(  . u , *03  ) of" AiJX 

62»C'’»CA  IX 

IV*Zv*Cl*C2 

|M*Z-l*Cl-C2 

14  CONTINUE 

C CONTBJB'M  TRIM  S*> 

|F<AL.RT.XC>  03  T3  15 
116  A»3*?.0*pI 

CAuL  AX  2 AL  ( N? , Al,  CK.  XI,  APi.  AA,  CO, 

AUX*-4. 0#CK*H2 


00001323 

00001530 

00001540 

000C155Q 

oo or 1560 
00001570 
0C0 01580 
000U590 
00001600 
00001610 
00001620 
0 0001630 
00001640 
00001650 
00001660 
0C001670 
00001680 
0000l89o 
0000i700 
0C001710 
0C0C1720 
00001730 
0r001740 
00001750 
0C001760 
030 C 1770 
00001780 
0 COO 1790 
0C0U300 
OD 001310 
0C001820 
00001830 
00001840 
00 001850 
00001860 
0:031370 
00031080 
OOOi.1690 
00001900 
0 1 0 1<  1 9 1 0 
Oi' 001920 
OCO  '1530 
o:  m 194  0 
OC 001950 
0 ’0  ’I960 
OCO  1970 
0' 001980 
OCO  1990 
0 C U 1 2 0 0 0 
2C10 
0 . 0 "202  9 
OCO  ?03U 
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CAJXbCMPuXIC . ’.AJX) 
e/UX«C6X»(CAjX> 

ei«AA«CAUX*CHP.X(  .0, _BB)*CAU* 

C2»CC»CAJX 

lV«2tf*Ci«C2 

IH«Zm*C1-C2 

15  CONTINUE 

C CONTOId • V FROM  s 2 

irJAL.nT.tPI-A-Cl))  GO  TO  16 
|F(Al.LE.XC>  GO  TO  1* 

|F(APS(Y2/2.0) .uT.CNSBr)  &0  Tu  17 
1R3»?  . 0* ( P l - AL  > 

CAlL  RTSIG(N?. Ai.CKi AL. APG.RTSIGV.RT5IGH) 
AI}XcpI/4,i'«X1-T2 

6A  jX«CmplX( r . ,AJX) 

CAJX«CFXp<CAJX) 

|Y*2V>0AjX*RTSIiV 
ZM«2m*CAUX«RTSI3H 
•0  TO  16 

17  CALL  BJS0(N2.MJ,  Al.H2#AL.CK,FAPRi#r)(PR?) 
|V»Zv*EXPRl-f=XJR2 
lM«Z^*EXPRi»EX3R2 

16  CONTINUE 

C CONTt 1 8 • N FR)H  S3 

IFJAL.GT. (PI-X-1)  ) GO  TO  IS 
IFtAL.LE.n .175)  30  TO  1 6 
|F(  ARS(Y2/2.j)  .lT.CNS«C)  Tij 
IRS*?.  **AL 

CAlL  «TSIrj(N3.Al,CK,AL.ApG.pTS1aV.PTSlGh, 

AUX*PJ/4.n.xl 

CAJX*CMPLX<<;.  .AJX) 

CA  JX«C^XP(CA'JX) 

2V«2w*CAtlX*RTS13Y 

|N»Zm*CAUX»RTSI3H 

18  CONTINUE 

C CONTCJdt'j  FROM  S 4 

IFCAL.LE.ALC1. OR. AL.GE.PI-XF?)  UO  TO  19 
AR3»2.)»(PI-AL*X--2) 

CAlL  RTSIR<N4,A2,C:k,AL.  ARG.RTsIGv.wTSI-.W) 
AUX»P I /4 . ' «X2* Y3 
caJXicmpl><( : . i.ajx) 

CAJX»CfcXP(CAUX» 

2V«2V»CAJX*RTSI3Y 
ZH*Zm*0Ai)X*RT3I  3H 

19  CONTINUE 

C a»«ANs£  outp  IT  oat* 

ZV^EaRPAlCZv  > 

ZVIM*A!MaR(ZV) 

RElSc2*1  . 0*  *L  33l  ( (ZVRE»*247Vt  ■)••?)  •HFLCl ) 
RHVl.ATA  NptZVM.ZVPE) 

CALL  UPDAT(RMVi.9HV?,P!,THPTAv) 
ZMRe«p>P.AL(ZH) 


o o ?:40 

0 .’U'2050 

n 0 c " ? 3 6 0 
U 0 C 2 0 7 u 
OCO  2380 
0(02090 
OCO. 2100 
O'1 032110 

n 002120 

OCO. 21 3 g 
0*  0'12140 

oco:2i5o 

OCO'2^60 
OCO. 2170 
0.0  2180 
000" 2l90 
OCO 02200 
0:0j2213 
OC or  2223 
OCO  ’2230 
0: 0 2240 
OCO '2250 
0C0C2260 
OjO  2270 
0':0r?280 
0,0'?Z9C 
nro:23oo 
o : o 2310 
0 0.2320 
OCO' 2330 
0~0r?3*9 
O’  0.  2350 
OCO  2360 
OTP  2370 
O'.  0323*0 
O''  0 02  39  J 
000 '2400 
00  24ig 
UIO j?420 
C C0t2430 
0 C 0 '•  2 4 4 0 
O'.O'  2450 
Ov  0C246J 
0 ' 0 ' p*7  0 
OC  a*  2480 
0 0 C ? 4 9 j 
TOC  2 SOM 
OCO  2510 
OCO ' 2 52 g 
0 0( ?53" 
IK  0 '2540 
0' 0 '2553 
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2002 


6 

C 

200 


555 


2*IM«A1MAG<Zh> 

30002560 

RElSH231j.0*4L3GI  ( ( ZHRE**2*ZHIi4**?)*«ElCl> 

000  ’2570 

• M-i1»AUm2(ZmM.ZHRE) 

00002580 

BALL  UP DAT ( RHH1 . » P t , THETAH) 

0C0C2590 

iRlT5(6.2  )02)  ALD , RELSV2 » RElS*2,  THETaV.  THEtaH 

00002600 

S0«MAT(l>f,  F9 . 2 » 1PE16 . 2.  1PF13.2,  0PF13,3,  Fl4,3> 

■*<1I)»ALD 

00002610 

00002620 

Etl< 1 1 > »R6CSV2 

OCUC2630 

»Y2<  U)*REUSm2 

000C2640 

B«3( I I JsTHETAV 

00002^50 

B*4( I I )*THETAH 

00002660 

*10«aLD*dEUL 

00002670 

IFCAlD-ALMaX)  1 .10,200 

00002680 

00002690 

000(2700 

OOMTINUE 

OCOC2710 

CALL  PLT5DT 

0C0  2720 
00002730 
0C0  2740 
000,2750 

NaM^l 

OGlK  276Q 

IF(N.LT.l)  go  to  1 

OC002770 

8TOP 

00002780 

BI|D 

0 J002790 

IV  -360 


7022T  U 1 11-26-75  11.154 


8U8R0UT I ’JE  RTSIG(CN,aY.CK,ALPHA. ARg.RTSIQV.RTSIGH) 

RI»3. 141593 

R-PI/EN 

C»C05(P) 

AUXl«C-l.r 

|F<ABS<AUXl> .LT,1. JE-3  ) GO  TO  2l 

40  AUX2«C-C0S(ARG/eM> 

1F<ARS(AUX2)  .UT.l.  JE-30  GO  TO  22 

41  AIJX2  I *1  • ,/AUX? 

A(JX1 1 * 1 . </AuXl 

AUXV.AOXpUAUXU 

AUXH«AUX2I*AUX1I 

rAC*«!lN(P>/EN*3aRT(  AT/(SIN(  ALPHA )*CK)  ) 

RTSlGVaFAC*AUXV 

RTSlGH*FAC*AUX-t 

80  Tft  10., 

81  fcRl Tc ( 6 , 31 ) aLsHA 

31  F0RMAT<17H  AUXl«.,u.  ALPHA=El5 . 7 ) 

60  TO  40 

22  klRlT?<6,32)  AL»RA 

32  FORMaT ( 17H  A0X2sj.. , AlPRAsE15.7) 

GO  TO  41 

100  return 

ENO 


00002800 
UOQ  23l0 
0 0 0 r 2 d 2 y 

000. '2630 
000  '2840 
00002850 
00002860 
OCO 02970 
00002600 
00002890 
000 ^ 2900 
00002910 
00002920 

ocan2?3o 
00  0 ‘'2  ^4  0 
00002950 
OC 012960 
000C2970 
000:2980 
00002990 
00003000 
00003010 
00003020 
000  :3030 
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■ UdRCUT  I ME  AXUlIEN,  AY.CK.EX,  ARG,  AA.R8.CO 
■1.3. 141503 

|«PI/EN 

|P*C3S(P) 

MC«SIN(P)/EN»AV*SORT<ei  ) 

5pi»cp-i.p 

?< ARS(CPl) .LT.l,  F-30)  00  TO  18 
30  AUX»CP-CqS(ARG/En) 

irURS<Ai|Xl  .LT.l.  E-3o>  GO  TO  2'1 
31  ft«2.0/AUX 

|«2.0/EN*SIN< A43/EN)/(CK*AY*AUX**2) 

1*2  • 0/CP1 

eAt-L  B^SS  ( 0 . U i =X  > 8u  ) 

CAUL  0ESS(i.n,=X,Bl) 

CALL  BEss<2.0.sX,32) 

HR  I TE ( 6 . 66 ) EX.  3 , 81.  R2 
66  PO^^A T ( 7?H 

X axial  <»1PE1;,3,6h  J0«1Pf10.3,6h  jlilPElO . 3, 

X»M  J2»1PE10.3) 

6A*FaC*A»R0 
BB«FaC»0*EX«81 
CC«fAC«C»B2 
■ 0 TO  1 0 ti 

20  HR  I Tc ( 6 , 21 ) AU* 

21  FORMAT (18H  AXIAl  SING..  AUX»E15.7) 

*0  TO  31 

18  wRlTE(6. 19 JCP1 

19  F0*MaT(18H  AXIAL  SING.,  CPl*El5.7> 

60  TO  30 
100  RETijqn 
ENO 


00003040 
00(J',3050 
00U03D60 
00003370 
00003080 
OOOO309O 
000n31Q0 
00033110 
00003120 
000 03130 
00003140 
00003150 
00003160 
00033170 
00003180 
OC003190 
0 0 0 " 3 2 0 0 
0C0 .3210 
00003220 
00003230 
OC  003240 
0C0C3250 
00003260 
0P003270 
00003280 
000"3290 
00003300 
00003310 
30C '3320 
07003330 
0C0.3340 
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SJBpOUTJNE  ^0  50(EM2,EN'3,  AY,  AIC^I.  AlpHA.CK,EXp«i,tXpa2) 
COMPLEX  CAUX.  iX3Rl , EXPR2 
H«J. 141593 
DEu*Ai.PHA-PI/2«  ' 

tAdKsS  JRTt  AY/CO 
92*2.0*CX»A1CH«SiN(DEL) 

|F<ARS<v2>«1.  :-3  >10.10,11 

10  AUX-l. 1 
•0  TO  12 

11  4U*»SI‘J(  V2»/Y2 

12  SX?Ri«RA0K«2.  •C<*AICH*AUX*CEXP(CHPLX(,j.O.-P!/X.O 
lh?( 0»CK«Ay*Y2)  ) 

1UX2.cOS<PI/EN2)-1.j 
JF(ARS<AUX2>  .LT.l.l-E-3  > GO  TO  100 
*0  AUX3»C0S(PI/EN3>-l.r 

1F(ARS(A'JX3)  .lT.I.  JE-3  ')  GO  TO  101 
#1  eAJX«1.0/EM2*SIN(Pl/ENu’>/AUX?»CEXP(CMPLX{f  ,0i2.0»v2>  > 
1*1,0/EN3*SIN(PI/=N3>/AUX3 

ikpr?*rahk*cajx»:exp(Chplx( ' . ".pi/4 .0-2. o#ck»ay> > 

K R I TP  < 6 , 73 ) 

73  T0RMATf6aH 
K HDSD ) 

to  TO  102 

100  KRITc(6,2'»  AJX2 

20  r07*UT(l*H  BUSO  SING..  AUX2*Fl5.7) 

to  to  *>r 

101  NRl TE(A.21>  AUX3 

21  r o^m a t c iRH  ensa  sing.,  aux3*ei5.7i 
to  To  51 

102  RETURN 
IND 

S ENOjOH 


00003350 
0 '003360 
00003370 
0 0 0 “ 3 3 ® 0 
00003390 
00003400 
OCO'3410 
00003420 
0000 3 430 
00003440 

0:0v345q 

000  13460 
0C003470 
00003480 
000(3490 
000*3500 
OCOr35io 
00003520 
000  3530 
OCOC3340 
000-3550 
00003560 
000-3570 
00003580 
0 0 O’ 3 59p 
000  ' J600 

0 0 0 ’ 3 6 1 U 
OOO '3620 
0 :0'3630 
OOO'. 3640 
OOO "3653 
0C0( 3660 


IV- 36  3 


t 


Sample  Input  for  the  RADAR  SCATTER  FROM  MISSILE  Program 

as  Output 


J 14? UI.S  - SCATT E R FROM  Mj  §S HE 


HALF  HEIGHTS  IN  INCHES  OF  NOSE  CONE  (HI)  ■ “ 1,6200000 


RADII  IN  INCHES  OF  NOSE  CONE  BASE  < A1 ) = V.  9000000 


OF  TAIL  CONE  BASE  (A2)  s 1.7000000 

HAVE  LENGTH  IN  INCHES  (CL*M)  • 1.0000CCC 


Sample  Output  for  the  RADAR  SCATTER  FROM  MISSILE  Program 
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oi 

-33.632 

-46,741 

110.40 

-3.23* 

oi 

•3.45* 

01 

-33,673 

-46.732 

110.50 

-3.19* 

01 

•3,39* 

01 

-33,710 

-46’,  723 

110.60 

-3. 16* 

01 

•3.35* 

oi 

-33.742 

-46.713 

110.70 

-3.13* 

01 

-3.31* 

01 

-33.771 

-46.704 

110.80 

-3.1* 

01 

•3.28* 

oi 

-33.798 

-46’,  694 

110.90 

-3.086 

01 

•3.25* 

01 

-33,822 

-46,684 

111. 00 

•3.06* 

01 

•3.23* 

oi 

•33,845 

-46,675 

111. 10 

-3.056 

01 

•3.211 

oi 

-33,867 

-46.667 

111.20 

-3,03* 

01 

-3.20* 

01 

-33,688 

-46,659 

111.30 

-3.02* 

01 

-3.19* 

oi 

-33.908 

-46,652 

111.40 

“3.026 

01 

•3.18* 

01 

-33.929 

-46.646 

111.50 

-3.02* 

01 

•3.18* 

01 

-33.950 

-46.642 

111.60 

-3.026 

01 

-3.19* 

0 1 1V-390  -33.97 1 

-46.638 

N.  B.  The  printout  on  the  pages  following  is  not  the  complete 
printout  as  produced  by  the  sample  job. 
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Plots  from  the  Sample  Output 
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Scattered  Phase  of  the  Vertical  Polarization  (THtTAV)  in  Radians. 
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r.  DIHEDRAL  CORNER  REFLECTOR  Program 

1.  Introduction 

The  DIHEDRAL  CORNER  REFLECTOR  Program  was  origi- 
nally developed  at  Cornell  Aeronautical  Laboratory,  Inc.  A reference 
for  background  information  is  "Application  of  Geometrical  Diffraction 
Theory  to  Reflex  Scattering  Centers",  by  R.  A.  Ross,  IEElJ  Inter- 
national AP  Symposium,  1968,  pp  94-99.  This  reference  provides 
a comparison  of  computer  predictions  with  measurements. 

2.  Abstract 

Based  on  the  Geometrical  Diffraction  Theory  (GDT),  the 
DIHEDRAL  CORNER  REFLECTOR  Program  computes  the  polarization 
radar  cross  sections  in  dBsm  and  the  scattering  phases  for  incre- 
mental values  of  the  aspect  angle  for  a dihedral  corner  reflector  made 
up  of  2 rectangular  plates  with  a 90  degree  angle  between  them. 

The  scattered  wave  consists  of  reflected  contributions  and  diffracted 
contributions.  The  scattered  field  is  determined  in  the  principal 
plane  (X-Z  plane)  for  Vertical  and  Horizontal  Polarization,  defined 
as  follows: 

o Vertical  Polarization  - propagation  vector  lies  in  the 

X-Z  plane  and  E is  perpendicular  to  this  plane. 

o Horizontal  Polarization  - propagation  vector  lies  in  the 
X-Z  plane  and  H is  perpendicular  to  this  plane. 

Refer  to  Figures  IV-9  and  I V-10 

Two  important  variables  which  are  used  in  the  DIHEDRAL 
CORNER  REFLECTOR  Program  are: 

o AT-  transmitter  H to  V phase 
o A R - receiver  H to  V phase 
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Key: 


■ 


ai  - Angle  of  incident  plane  wave 
<*s  - Angle  of  radiated  wave 
% - Corner  reflector  angle  (tt/2) 

{ 


Figure  IV-9  Two-Dimensional  Corner  Reflector 
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Key:  a - aspect  angle 


A - half  width  of  side 
B - half  height  of  side 

f j - transmitter  orientation  about  incidence  direction  ref- 
erenced to  Z-X  plane. 

"^R  - receiver  orientation  about  observation  direction  refer 

enced  to  Z-X  plane. 


A T and  A R represent  the  time  phase  angle  relationship  between  the 
horizontal  (H)  and  vertical  (V)  components  of  the  electric  (E)  field.  If 
the  H and  V components  of  the  E field  are  equal  and  A T = 0 degrees 
then  the  E field  lies  in  a plane  at  45  degrees  to  the  horizontal  reference. 
If  A T is  not  equal  to  zero  the  plane  of  the  E field  rotates  as  a function 
of  time.  For  example,  when  A T = 90  degrees  the  electromagnetic 
wave  is  circularly  polarized. 

The  computer  program  can  calculate  single  diffraction  and 
reflected  contributions  from  the  corner  reflector. 

3.  Computer  Program  Operating  Environment 

a.  Computer 
HIS-6000 

b.  Source  Language 
FORTRAN  Y under  GCOS. 

c.  Memory  Requirement 
22K  words 

d*  Typical  Processing  Time  Required 

0.004  hrs.  (14  seconds) 

*•  Peripheral  Equipment  Requirement 

Four  disc  files  (file  codes:  07,  08,  09,  10) 

f.  Subroutines  Required 

Subroutines  obtained  from  SXSA  file: 

UPDAT 

PLTGDT 
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4.  Inputs 

The  inputs  which  are  needed  for  the  execution  of  the 
DIHEDRAL  CORNER  REFLECTOR  Program  are  as  follows: 

A - Half  width  of  side  (inches) 

B - Half  height  of  side  (inches) 

CLAM  - Wave  length  (inches) 

DELAL  - Increment  in  aspect  angle  (degrees) 

ALMIN  - Minimum  aspect  angle  (degrees) 

ALMAX  - Maximum  aspect  angle  (degrees) 

AL  - Initial  aspect  angle  (degrees) 

GAMT  - Transmitter  orientation  (degrees) 

GAMR  - Receiver  orientation  (degrees) 

DELT  - Transmitter  H to  V phase  (degrees) 

DELR  - Receiver  H to  V phase  (degrees) 

Input  Format 

The  above  inputs  are  entered  into  the  program  through 
NAMELIST  format.  The  mnemonic  variable  INPUT  is  used  as  the 
NAMELIST  name.  The  first  input  card  must  contain  a $ followed  by  INPUT 
(i.  e. , $ IN  PUT).  After  the  $INPUT  the  data  items  must  follow  in  the  format 
of: 

variable  1 name  = (value), 
variable  2 name  = (value), 

• 

variable  n name  = (value)  $ 

Each  data  item  must  be  separated  by  commas.  Following  the 
last  input  data  item  a $ must  be  included.  Refer  to  the  sample  job  stream. 
By  changing  the  above  inputs  the  user  can: 

o vary  the  radar  frequency  and  polarization  of  the  transmitting 
and  receiving  antennas. 
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Output  from  the  DIHEDRAL  CORNER  REFLECTOR  Program 


first  contains  a listing  of  the  input  data.  Secondly,  the  output  contains 
a list  of  the  aspect  angle  (AL)  at  each  incremented  value  from  the  input 
initial  value  to  input  maximum  versus  the  following  parameters: 

RLSD1  - Radar  cross  section  for  diffraction  component 
in  square  meters. 

RLSR1  - Radar  cross  section  for  reflection  component 
in  square  meters. 

RLS1  - Total  radar  cross  section  in  square  meters. 

RLSD2  - Radar  cross  section  for  diffraction  component 
in  dBsm. 

RLSR2  - Radar  cross  section  for  reflection  component 
in  dBsm. 

RLS2  - Total  radar  cross  section  in  dBsm. 

TETAD  - Scattered  phase  for  diffraction  in  radians. 

TETAR  - Scattered  phase  for  reflection  in  radians. 

TETA  - Total  scattered  phase  in  radians. 

Through  a call  to  subroutine  PLTGDT  one  data  file  is  built. 
This  file  (file  code  07)  contains  data,  from  variable  RLS2,  which  can 
be  used  for  producing  plots. 

The  aspect  angle  (AL)  is  not  recorded  on  a separate  data 
file.  The  aspect  angle  can  be  easily  computed  for  the  data  from  RLS2 
by  using  the  initial  aspect  angle  and  the  increment  value  of  the  aspect 
angle,  both  of  which  are  recorded  on  the  file.  That  is,  at  any  Nth 
increment  the  aspect  angle  is  equal  to  the  initial  aspect  angle  plus  N 
times  the  increment  value. 
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$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ENPUT 
A=0.  85625, 
B=l.  1825, 


ID  ENT 

USERID 

LOW LOAD 

OPTION 

SELECT 

SELECT 

EXECUTE 

PRMFL 

PRMFL 

PRMFL 

PRMFL 

LIMITS 

DATA 


CLAM-0.  3386757, 
DELAL-0.  1, 
ALMIN-0.  1, 
ALMAX-45.  0, 
AL=0.  1, 

GAMT-45.  0, 
GAMR-45.  0 
DELT-0.0, 
DELR-0.0  $ 

$ ENDJOB 


^**EOF 


CLEARY,  CONTI  , 65121 104RADC 

CLEARY  $THREE 

FORTRAN 
CLEARY/OCOR 
CLEARY /OXSA 

07,  W,  L,  CLEARY  / STORE  1 

08,  W,  L,  CLEARY / STORE2 

09,  W,  L,  CLEARY /STORE3 

10,  W,L,  CLEARY / STORE4 
10,  22K, , 10K 

05 


Sample  Job  Stream  for  the 
DIHEDRAL  CORNER  REFLECTOR  Program 
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I^DC  r omt  Q_ Mtyioui  COITION  WILL  CC  USED 


HIS-6000  Batch  Submittal  Form 
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Source  Listing  of  the 

DIHEDRAL  CORNER  REFLECTOR  Program 


i 


o nooooooooooooo 


8329T  L'l  12-0R-75  17.65. 


c ' program  DIHEDRAL  CORNER  REElEcTOR  ( SCOW) 

C 

e0MH0N/N4M/YVl<2  ).YY2(2  "0>;YY3(2o^O>.yV4(200U). 

• K*(200  D,  1 1 

EOHPlE*  FJDEL.=J310.EJPIH,FJP1IEjP2»EJCA5,EJCAC»EJC1,EJC2,EjCC. 
X E-'Or.EJOR:.=JRP,EJRrr.EJDC,EJDCC.SlGOiS!GR,Sir,  , EJCX 

1PA'<rLlST/INPOT/A.g.CL*M.0ELT(.,AL«lN.*LMAX,-At75AMT,  ’ 

•8AMR.qelt.DElR 

1000  rORM*T(5rl4. 7) 

1001  roRNATtlH  # 7El 3 . 9 ) 

2000  rORM*T<iwi,///4  X. "DIHEDRAL  CORNER  REPlECToR  INPUTS". 
*///20X."NALr  U 1 0 T W OP  s I H6  C A > In  InCMEs  ■ ",Pl4,7. 

•///29X."HAlP  HEI3HT  or  SIDE(B)  IN  INCHES  * ",Pl4,7, 
•///29X."MAVE  L=N3TH(CLAM>  IN  INCHES  ■ ".Fl4,7, 

•7//29X. "INCREMENT  IN  ASPECT  ANGLE ( PEIAL ) IN  PEGREES  « " . 
•ri4.?.///29x. "MINIMUM  ASPECT  ANGLE(ALMIN)  IN  DEGREES  * 

•El*. 7, ///29X, "Maximum  aspect  angleiALMax)  In  deGRefs  * 

•F14. 7, ///?9*. "INITIAL  ASPECT  ANGIE (Al>  IN  DEGREES  * ".ri4,7, 

• ///29X. "TRANSMITTER  OR  I ENT aT I ON ( GAmT ) IN  DEGREES  * ",Fl4.7, 
•///20X ."RECEIVER  ORIENTATION  IGAMR)  IN  DEGREES  * ".r14,7, 
•///29X, "TRANSMITTER  m To  V PhaSE(DELT>  IN  DEGREES  = ".rl4.7, 
•///29X."RFCEIVER  H TO  V PHASEIDELR)  IN  DEGREES  • ",PJ4.7) 

2001  rORMAT(lHl,4x. "A.".4x,"RLSDl".4X."RLSRl".5x,"RLSl". 

X15M  R.SD2»Rh  RLSR2*9H  RLS2*15H  TETAD. 

X0W  TETAR,9w  TfTA,//) 

2002  P0TMAT(lX.F7.?,i37E9.2,3X,E9.2.2X,f:9,2.?X,E9,2, 
•3X»0»F8.J,2X»F9, 3 . 2X  »F8 , 3) 

IN*UTS  VIA  NAMElIST 

a * halt  width  rioe  (inches) 

P * halt  height  OF  SIDF  (INCHES) 

CLAM  S WAVE  LENGHT  (INCHES) 

CELAt  = INCREMENT  IN  ASPFCT  ANGLE  (DEGREES) 

ALMIn  » tlNlMJM  ASPECT  ANGLE  (DEGREES) 

Al max  a MAXIMUM  ASPECT  ANGlE  ( DEGREES  > 

Ac  * ASPECT  AN3l  = (DEGREES) 
f>  A m T a TRANSMITTER  ORI~NTaTJON  ( DEGREES  ) 

(1  AMR  a RcCElVfcT  ORIENTATION  (DEGREES) 

DFtoT  a TRANSMITTER  H TO  V PHASE  (DFGRfcFS) 
fFcR  * R^CF l vF  ( H TO  V PH4SE  (DEGRFES) 

1 READ<0'».  INPUT,  SOM«.  ) 

LRITC(6.2'0  )A.R,CLAM,:»ElAL.  ALMIN,  ALMaX,  AL.GAMT.GaNR, 

• t’ELT.QtLM 

c 

II  * 0 
TfcfAO  = . 

TETAR  a . 

TFTA  a 0. 

PH'tQPa 

PH^RRa 


o : 6 ■;  l o o o 
0 ' 0 r i c 1 o 
0C0C1015 
o:o"ioi7 
0P001030 
orooi040 
UTUr1045 
orof 1046 
o:ocic5o 

ococio6o 
OC0nl07o 
0C0' 1172 
0 G 0 ('  1 0 7 4 
O^OC 1076 

of ofiC7e 

O'OC‘1080 
o:o.1inP2 
Of  0--1084 
0 0'10P6 
0 001088 
o :o'io<>G 

0. o 1092 
O'OHlOO 
i>  o 'luo 
c 'o;ii2o 
OCOCJ.130 
Of  0r 1132 
1)0001140 
0 O'  1150 
0 0 1160 
0.  0«‘  1170 
0.001 180 
crc;ii90 
o - o •'  1 2 1 o 
n 001220 
u o:i23o 
0 0 • ' 1 2 4 0 
It  If  1260 

0 0 1270 
0.0  12«0 
a • o 1 1 2 q n 
: m 1 4 ou 
n o; i4io 

0 .0C1420 
nr  n i4?5 
1)  0 1460 
O'  1471 

0 U 1460 
0:0 '1490 
<’  0 . 1500 
0 9. 1510 

0 ' It  1 52C 
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8325T  U 12-08-75  17.65, 

Ih02  ■ 0, 

■BLCl  • .'294*.  254 
t!»3. 14199269 
C«  ■ 2. •Jl/CUl 
BTR  . PI/180. 

•TO  • 18. /PI 

***  1I*T  ■ GAKTiffTR  — 

•AMR  ■ GAMR*DT9 
BElT  . D6LT*on 
BEL*  « DELR*OT9 

DEUl  * oeial*dtr 

»l"UN  ■ ALMtN»0T9 
»l*AX  ■ AlMAXiGT* 

AL  • AL*0TR 
C*  ■ 2**CK«A 
C Sp I 0 * C0S(Pl/4.) 

•*PI3  ■ 5lN(Pl/4.> 

I 3 ■ CMPLX<CSP1Q.SNPIQ) 

esPiw  i rosipi'e.) 

• NP]4  « S I N( P I /2  • > 

ijpIm  i chplxcs°ih.snpih) 

SdCC  * (2.»B«EJPl0)/S0RT{Pi j 
lUDEu  • SlMlOEuT^DELR) 

CSOEl  ■ COStDE.T ♦DELR) 

SJDEl  » eHPLXCSBEL.SNDEU'" 

5 Jp 1 • ClS ( Gam T )*COS(GahP> ♦£ J0E^«S IN(Gam^)»SIn( GA^R ) 
EJP2  * C05<GAMT)#C0S(GAMR>  - E JDEL#S !N< GAMT ) »S I N( GAMR > 
•• I Tf ( 8, 2001 ) 

10  I!  • 11*1 

CAS  ■ C*,SIN(A.) 

CAC  ■ CA«COSCA'.J  ' ~ 

SNCAs  » slN(CAS> 

CSCA?  » COS(CAS) 

INCAC  « SIN(CAO) 
cscac  * cosrcAO 
F JCaS  ■ CMPLKCSO*S,-SNCaS) 

ejcac  ■ cmplxcscac.-Sncacj 

IF  ( AL.  EQ.  -1.  ) EJCX  * CA 

IF  ( At.  NE.  0;  ) FJCX  « < SNCAS*EJCAS)/SIN< AL ) 

FjCl  ■ ( EJCX  ♦ (SNCAC»EJCAC)/COS( *L) ) 

FdC2  ■ CSCaS#EJCaS  ♦ CSCaC*EJcaC 

EJOF  • EJCC*(EJC1*EJPIH*EJP1  ♦ EJC2*EJp2> 

EJDFC  * CON Jfl( 5 JDF > 

8130  « EJOF*EJOFC 
■ L5D  • REAUSI3D) 

IF  (RLSD  . GE  . J.UO./'iol)  GO  TO  11 
PLSO  ■ P.i0"0ni 

• JDF  . < octroi  , 0.  > 

11  eO-4T|NUE 

• HOOl  ■ 4TAN2<  AMAG(FJOF).REAL(EJDF)  ) 

CALL  UPDaT(RH001.RH0D2,PI,TETAD) 


ojorisso* 

000r 1540 
0C0C1550 
0C0C156U 
00001570 
00001580 

00001390*“ 

0C0C160U 

or  001610 
or  001620 

OC  001630 
Oo  001640 

00001653' 

00001660 
0000167  o 
00001680 
00001690 
00001700 

oroonro — 

00001720 
0CU01730 
OrOC1740 
0:0*1750 
00001760 
OOOC177D — 
0 OC 1 780 
0^0*1 790 
o:ociaoo 

o:ooi9io 

00001820 

D'001830 — 

00001340 
0*001350 
0 "001360 
0r00i870 
00001830 
o: 001890  '** 
0*001900 

0 '001910 
01:001920 
0*001930 
0 001940 
0*001950 
0)001980 
00001970 
0*001980 
0 ?00j 99 0 
0 0 >2000 
o*n'2oio 

O'  01*2020 
0*002030 
O'O. 20<U 
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8328T  l-l  12-08-75  17.65 

C3  • 2 • »C A*S I N ( 4_  > 

EJRF  » EJCC*EJ3H»C3»EJP2 
EJRFr  s coNJQ<=J*f) 

SI3R  a EJRF*EJ3FC 
•LSR  * RE*U(SI3R) 

IF  jrLSR  . GE  . .i  C 1)  GO  TO  12 

bLSr  » C.ro.O  1 

IjV  « C »-#:.0  0 1 . .1.  ) 

12  CONTINUE 

RM3R1  « *TaN?(M'UG<EJRF),REAL<EJRF>> 

C AuL  UPDaT(RH0^1.RH0R2,P1 .TETAR) 

c 

fjoc  « Ejnr  ♦ E JrF 

BJ^Cr  • CONJG«iJDC> 

813  * 6jnC«EJD:C 
PLS  . REAL ( S IG I 

IF  (RLS  . GE  . . jOvUl  > GO  TO  l3 

RlS  a li.  j'QC'lll 

EjDC  « ( .'■0  3 1 , II. *1  ) 

13  continue 

«H.H  ■ A?AN2<  AHAG<EjDC).REAL<EjnC)> 

CALL  L5,nAT(RH01.RHn2.P!  ,TETA> 

c 

RLSDt  * RLSOaRitOj 
PL^d?  a 1'.*aL3gi  (PLS;id 
RLSRi  * rlsr*r=lci 
PL3R7  a 1 ' , • Al 331  (RLSBl) 

rl^i  * rls*rel:i 

• L 52  a 1 .»Al031  (RLS1) 

C 

AL  * RTDaAL 

WR  I Tc  ( 6 , 2' 02  ) A.,  RLStil.  RLSRI,  RlSI,  RLSDt,  R L 5 R 2 , RlS2, 

K TETAO.  TiTAR,  TETA 

¥YK 1 I 1 *RLS2 
SX< I 1 )»AL 
aL  a DTRaAL 
AL  * AL  ♦ 3ELA_ 

JF( Al  - ALMAX>  1 . U.  2 
200  CALL  PLTJDT 
f-0  Tt  1 
100  snp 
f N- 


0 0 r 20^0 

0 Uf  2060 
0 0.2070 
0 0-2080 
0 0 i209fi 
0-0(.2l00 

o : o '2iio 
0 0''2l2u 
0 0,,2130 
0 0.2140 
0-.  0 '2150 

0 0.?l6Cr 
0 0 C 7 1 7 0 

O'  002180 
0 O'' 2103 
U 0 r 2 2 0 C 
0 0 1.  2 210 
0 0 2220 
0 02230 
n 0 C 2 2 4 u 
0 0.^2250 
Oi G. 7260 

o 0:22^0 
0 002280 
DO  2290 
0.0. 2300 
C’0‘  2310 
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OtHEDRAL  CORNER  REFLECTOR  INPUTS 


HALF  HIOTH  OF  SIDIU)  IN  INCHES  » 


0,15*2900 


HALF  HEIGHT  Of  81DH8I  IN  INCHES  • 


171829000 


HAVE  LENQTH(CLAM)  IN  INCHES  ■ 


0,1388797 


INCREMENT  IN  ASPECT  ANQLKOElAL)  IN  OIQREES  * 


8.1000110 


MINIMBH  ASPECT  ANQLB(ALHlN)  IN  DEGREE!  8 


0.1008080 


HAXIHUM  ASPECT  ANGLE! ALMAX)  IN  DEERSES  9 
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INITIAL  ASPECT  ANGLBdL)  IN  DEGREES  • 
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TRANSMITTER  OR IfNTAT l ONI 9 AMT ) IN  DEGREES  « 
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RECEIVER  ORIENTATION  IQAMR)  IN  DEGREES  ■ 45.0000000 


TRANSMITTER  H TO  V PHASE(OELT)  IN  OEQREES  « 


0. 


RECEIVER  H TO  V PNASEJDELR)  IN  DEGREES  ■ 


0, 
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K.  Common  Subroutines  and  Data  Files 
1.  Subroutine  File  SXSA 

a.  Abstract 

The  subroutines  common  to  two  or  more  of  the  cross 
section  programs  have  been  stored  in  two  separate  files,  named  SXSA  and 
SXSB.  Contained  in  the  subroutine  file  SXSA  are  the  four  FORTRAN  sub- 
routines UPDAT,  BESS,  GAM,  and  PLTGDT.  Two  or  more  of  these  rou- 
tines are  used  in  the  execution  of  all  the  radar  cross  section  programs. 
Refer  to  Figure  IV- 11  for  a cross  reference  of  what  routines  are  used  by 
what  programs. 

b.  Program  Description 

( 1 ) Subroutine  BESS 

The  subroutine  BESS  computes  the  value  of  the 
Bessel  function  which  is  used  in  calculating  the  GDT  coefficients  for  illumi- 
nated scattering  centers.  The  calling  sequence  is  as  follows: 

CALL  BESS  (0,Z,BS) 

where 

O - is  the  order  of  the  Bessel  function 

Z - argument  of  the  Bessel  function 

BS  - the  computed  value  of  the  Bessel  function 

(2)  Subroutine  UPDAT 

The  subroutine  UPDAT  updates  the  computation  of 
phase,  such  that  the  phase  is  cumulative  rather  than  of  module  2 x . 

(3)  Subroutine  GAM 

The  subroutine  GAM  computes  the  value  of  the 
Gamma  function.  (GAM  is  called  by  the  subroutine  BESS).  The  calling 
sequence  is  as  follows: 
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CALL  GAM(X.G) 

where 

X - argument  for  the  Gamma  function 
G - value  of  the  Gamma  function 

(4)  Subroutine  PLTGPT 

The  subroutine  PLTGDT  arranges  the  cross  sections 
in  dBsm  and  cumulative  scattered  phase  in  radians  in  increments  of  the 
aspect  angle  to  be  output  onto  four  separate  files  (07,  08,  09,  10). 

o File  07  contains  the  vertical  radar  cross  section  with  respect 
to  the  increments  of  aspect  angle. 

o File  08  contains  the  horizontal  radar  cross  section  with  respect 
to  the  increments  of  aspect  angle. 

o File  09  contains  the  scattered  phase  for  the  vertical  polarization 
with  respect  to  increments  of  aspect  angle. 

o File  10  contains  the  scattered  phase  for  the  horizontal  polariza- 
tion with  respect  to  the  increments  of  the  aspect  angle. 

Each  of  the  above  files  contain  the  following  record 
formats.  The  first  record  is  in  the  format  4(1X,  E14.7),  131  and  contains 
the  maximum  and  minimum  values  of  the  data  points  on  the  records  following, 
the  minimum  aspect  angle,  the  increment  of  the  aspect  angle,  and  the  iotal 
number  of  data  points  which  follow.  Following  the  first  record  of  each  file 
are  records  each  containing  five  sequential  data  points  in  the  format 
5(1X,E14.  7).  The  data  points  are  recorded  in  the  order  in  which  they  were 
computed. 

From  the  above  files  punched  data  cards  can  be 
obtained  which  can  be  used  as  input  to  the  Hewlett  Packard  9820A  Calculator 
for  plotting. 


IV-426 


SXSA 


SXSB 


CYLINDER 

Program 


H a 

2 3 2 8 

& S 5 S 


X X X X 


2 » 
J 2 

A < 

W H 


FRUSTUM 

Program 


X X X X 


FRUSTUM -CYLINDER 
Program 


X XXX 


CYLINDER  -FLARE 
Program 


X X X X 


X X 


CONE 

Program 


X X X X 


X 


CONE -CYLINDER 
Program 


X X X X 


HEMISPHERE- 
CYLINDER  Program 


RADAR  SCATTER 
FROM  MISSILE 
Program 


X X X X 


CORNER-REFLECTOR 
Program 


In  the  above  table  are  the  radar  cross  section  programs  with 
a cross  reference  to  the  files  and  subroutines  needed  for  their  execution. 


Figure  IV- 11  Subroutine  Files  SXSA  and  SXSB 
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2.  Subroutine  File  SXSB 

a.  Abstract 

Contained  in  the  subroutine  file  SXSB  is  the  FORTRAN 
subroutine  SPLN46  and  the  FORTRAN  function  TAN.  These  are  used  in 
the  execution  of  some  of  the  radar  cross  section  programs.  Again,  refer 
to  Figure  IV  - 1 1 . 

b.  Program  Description 
(1)  Subroutine  SPLN46 

The  subroutine  SPLN46  smooths  data  (i.  e. , fits  a 
curve  to  data  points)  through  the  broadside  specular  on  a frustum  using  a 
"spline  method".  The  calling  sequence  is  as  follows: 

CALL  SPLN46(IND,  XP,  YP,  X,  Y,  NP,  C1.C2,  C3) 

where 

IND  - if  =0,  calculates  C1,C2,C3 

= 1,  uses  C1,C2,C3,  as  stored 

XP  - input  X value 

YP  - output  Y value 

X,  Y - input  ordered  pairs 

NP  - number  of  ordered  pairs  (points) 

C1,C2,C3  - coefficients  ’ 


(2)  Function  TAN(X) 

The  function  TAN  computes  the  natural  trigonometric 
tangent  for  the  angle  X in  radians. 
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